8.2.. Ispisati prirodne brojeve od 1 do 5 koji nisu djeljivi sa 3

Listing programa:

PROGRAM P08211044; 
USES
  WINCRT;
VAR
  I : INTEGER;
BEGIN
  WRITELN('Ispis brojeve koji nisu djeljivi sa 3 od 1 do 5');
  
  I := 1;
  WHILE I <= 5 DO
    BEGIN
      IF I MOD 3 <> 0 THEN 
	    WRITELN ('I=',I)
      I := I + 1;
    END;
	
END.

Ispis na ekranu:

Index