8.1.. Prebrojati neparne prirodne brojeve od 1 do 5.

Listing programa:

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

Ispis na ekranu:

Index