Лабораторная работа по информатике(программированию)

Задание нужно сделать в Lazarus: "Найти все делители натурального числа п"

Помогите, пожалуйста

ответ:

 var i, n : integer;

begin

 write ('введите число N-');

 readln (n);

 writeln('Делители числа: ');

 for i :=1 to n do

  if n mod i = 0 then writeln (i)