8.1.. Prebrojati neparne prirodne brojeve od 1 do 5.
Listing programa:
PROGRAM P08112087; USES WINCRT; VAR I,BR: INTEGER; BEGIN WRITELN('1 DO 5'); FOR I:=1 TO 5 DO IF I MOD 2<>0 THEN BR:=BR+1; WRITELN ('BR=',BR); END.
Ispis na ekranu:
Index