Помогите с паскалем

[Saaashka]

Найти все делители натурального числа n.

[-=<[Evklidd]>=-]

Находит все делители, включая само число:

program pro20;
var
 n, i: integer;
begin
 write('Vvedite chislo: ');
 readln(n);
 writeln('Deliteli chisla ', n, ': ');
 for i:= 1 to n do
  if n mod i = 0 then
   write(i,', ');
 readln;
end.

[Saaashka]

Сообщение от -=<[Evklidd]>=-

Находит все делители, включая само число:

program pro20;
var
 n, i: integer;
begin
 write('Vvedite chislo: ');
 readln(n);
 writeln('Deliteli chisla ', n, ': ');
 for i:= 1 to n do
  if n mod i = 0 then
   write(i,', ');
 readln;
end.

спасибо огромное!!!!!!!!