8.2.. Ispisati prirodne brojeve od 1 do 17 koji nisu djeljivi sa a.

Listing programa:

PROGRAM p08211040;
USES
  WinCrt;
VAR
  i, a: Integer;
BEGIN
  WRITELN('NISU DJELJIVI SA a OD 1 DO 17');
  WRITE('Unesi a ');
  READLN( a );
  
  i := 1;
  WHILE i <= 17 DO
    BEGIN
      IF i MOD a <> 0 THEN
        Writeln(i);
      i := i + 1;
    END;
	
END.

Ispis na ekranu:

Index