Pascal ABC

Напишите процедуру которая выводит на экран все делители переданного ей числа (в одну строчку)

Var n,i:integer;
begin
read (n);
for i:=1 to n do
begin
if (n mod i = 0) then write (i, );
end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.