8.3.. Ispisati parne prirodne brojeve od 1 do 5.

Listing programa:

PROGRAM p08311041;
USES
  WINCRT;
VAR
  I: INTEGER;
BEGIN
  WRITELN('1 DO 5');
  I:=1;
  REPEAT
      IF I MOD 2=0 THEN	
        WRITELN ('I=',I);
      i := i + 1;
  UNTIL i > 5;
END.

Ispis na ekranu:

Index