8.1.. Ispis prirodnih brojeva od k do n koji nisu djeljivi sa 5.

Listing programa:

PROGRAM p08111051;
{ispis prirodnih brojeva od 1 do n koji nisu djeljivi sa 5}
VAR              { deklarisanje promjenljivih }
  i, n : INTEGER;   { cjelobrojne promjenljive }
BEGIN
  WRITELN('Od 1 do n koji nisu djeljivi sa 5');
  Write(n);
  Readln(n);

  FOR i:=1 TO n DO     { ponavljaj za i=1 do n - pocetak petlje }
    IF i MOD 5 <> 0 THEN      { nisu djeljivi sa 5 od 1 do n prirodnih brojeva? }
        WRITELN ('i = ', i);  { ispis u petlji }

  READLN;
END.

Ispis na ekranu:

Index