8.2.. Prebrojati parne prirodne brojeve od 1 do 5.

Listing programa:

PROGRAM P08212086;
USES
  WINCRT;
VAR
  I,BR: INTEGER;
BEGIN
  WRITELN('1 DO 5');
  I:=1;
  WHILE i <= 5  DO
    BEGIN
      IF I MOD 2=0 THEN
        BR:=BR+1;	
      i := i + 1;
    END;
  WRITELN ('BR=',BR);
END.

Ispis na ekranu:

Index