8.3.. Prebrojati prirodne brojeve od 1 do 5.
Listing programa:
PROGRAM p08312085; USES WINCRT; VAR I,BR: INTEGER; BEGIN WRITELN('1 DO 5'); I:=1; REPEAT BR:=BR+1; i := i + 1; UNTIL i > 5; WRITELN ('BR=',BR); END.
Ispis na ekranu:
Index