Forum Programosy

Witam!
Mam problem z zadaniem , w którym muszę napisać program wyświetlający naturalne dzielniki liczby podanej przez użytkownika. Wszystko niby dobrze,ale wyświetla wszystkie dzielniki a ja potrzebuję tylko te naturalne. Pomoże ktoś?

Kod: Zaznacz wszystko

program dzielniki;
uses crt;
var
  i,n : integer;

begin
  clrscr;
  writeln('Podaj liczbe: ');
  readln(n);
  for i:=1 to n do
  if n mod i = 0 then writeln(i);
  readln;
end.