14.3.. Prebrojati parne dvocifrene brojeve (djeljivih sa 2).

Listing programa:

PROGRAM p14314016;
USES
  WinCrt;
VAR
  I,BR: INTEGER;
BEGIN
  FOR I:= 10 TO 99 DO
    IF I MOD 2=0 THEN
      BR:=BR+1;
  WRITELN('RESENJE JE',BR);
END.

Ispis na ekranu:

Index