8.1.. Ispisati prirodne brojeve od 1 do 17 koji su djeljivi sa a.

Listing programa:

PROGRAM P08111039;
USES
  WINCRT;
VAR
  I,A: INTEGER;
BEGIN
  WRITELN('DJELJIVI SA a OD 1 DO 17');
  WRITELN('UNESI A ');
  READLN(A); 
  
  FOR I:=1 TO 17 DO
    IF I MOD A=0 THEN	
      WRITELN ('I=',I);
	  
END.

Ispis na ekranu:

Index