uses crt; const n=10000; var i,j,liczba,a,b:integer; tablica:array[1..n] of boolean; tablica2:array[n+1..2*n] of boolean; begin clrscr; for i:=1 to n do for j:=n+1 to 2*n do tablica[i]:=false; tablica2[j]:=false; writeln('podaj liczbe naturalna'); readln(liczba); for i:=1 to n do begin a:= liczba mod i; b:= liczba div i; if a=0 then tablica[i]:=true; end; for j:=n+1 to 2*n do begin a:= liczba mod j; b:= liczba div j; if a=0 then tablica2[j]:=true; end; for i:=1 to n do if tablica[i]=true then writeln('Dzielnikiem liczby naturalnej ',liczba,' jest liczba ',i); for j:=n+1 to 2*n do if tablica2[j]=true then writeln('Dzielnikiem liczby naturalnej ',liczba,' jest liczba ',j); readkey; end.