8.3.. Ispisati prirodne brojeve od 1 do 5 koji su djeljivi sa a.

Listing programa:

PROGRAM p08311045;
USES
  WINCRT;
VAR
  I,A: INTEGER;
BEGIN
  WRITELN('1 DO 5');
  WRITELN('UNESI A ');
  READLN(A); 
  i:=1;
  REPEAT
      IF I MOD A=0 THEN	
        WRITELN ('i=',I);
      i := i + 1;
  UNTIL i > 5;
END.

Ispis na ekranu:

Index