Найти все делители для заданного числа n. Паскаль

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal:

program FindDivisors;
var
n, i: Integer;
begin
Write('Введите число n: ');
Readln(n);
Writeln('Делители числа ', n, ':');
for i := 1 to n do
begin
if n mod i = 0 then
begin
Write(i, ' ');
end;
end;
end.

Этот код запрашивает у пользователя число n, а затем находит все делители этого числа и выводит их на экран.