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

Listing programa:

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

Ispis na ekranu:

Index