8.1.. Ispisati parne prirodne brojeve od 1 do 5.
Listing programa:
PROGRAM P08111041; USES WINCRT; VAR I: INTEGER; BEGIN WRITELN('Ispis parnih brojeva od 1 do 5'); FOR I:=1 TO 5 DO IF I MOD 2=0 THEN WRITELN ('I=',I); END.
Ispis na ekranu:
Index