Вводится число n найти все его делители (задача по инфарматике)

var i, n: integer;

begin

//вводим исходное число

Write ('Введите число n: '); Readln (n);

Write ('Делителями числа ', n, ' являются: ');

//перечисляем все возможные числа в промежутке от 1 до n

For i:=1 to n do

begin

//если при делении на какое-либо из них остаток 0, то это делитель = > вывод

if (n mod i = 0) then write (i, ' ');

end;

end.