8.3.. Ispisati neparne prirodne brojeve od 1 do 5.
Listing programa:
PROGRAM 08111042; USES WINCRT; VAR I: INTEGER; BEGIN WRITELN('1 DO 5'); I:=1; REPEAT IF I MOD 2=1 THEN WRITELN ('I=',I); i := i + 1; UNTIL i > 5; END.
Ispis na ekranu:
Index