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

Listing programa:

PROGRAM P08111041;
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);
	
  READLN;
END.

Ispis na ekranu:

Index