8.3.. Napisati program za učitavanje prirodnog broja i ispis sa kojim brojevima od 2 do 9 je djeljiv.

Listing programa:

PROGRAM p08315004;
USES
  WinCrt;
VAR
  i, n: Integer;
BEGIN
  write ('Broj ');
  readln(n);
  i :=  2;
  REPEAT
      IF n MOD i = 0 THEN 
        Writeln ('Djeljiv je sa ', i);
      i := i + 1;
  UNTIL i > 9;
END.

Ispis na ekranu:

Index