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

Listing programa:

PROGRAM p08111052;
{ispis prirodnih brojeva od 1 do n koji nisu djeljivi sa a}
USES
  WinCrt;
VAR              { deklarisanje promjenljivih }
  i, k, n, a : INTEGER;   { cjelobrojne promjenljive }
BEGIN
  WRITELN('od k do n koji nisu djeljivi sa a');
  Write(k);
  Readln(k);
  Write(n);
  Readln(n);
  Write(a);
  Readln(a);

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

END.

Ispis na ekranu:

Index