Делители (I уровень)

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

Решение:
Идея решения. Задача решается " в лоб". Делим число n последовательно на все числа от 1 до n и печатаем те, на которые число n делится без остатка

var
n,i:longint;
begin
write('Введите число...');
readln(n);
write('Делители числа ',n,' : ');
i:=1;
while i<=n do
begin
  if n mod i = 0
  then write(i,' ');
  inc(i);
end;
end.