Составьте программу, выводящую на экран все делители числа х. число x введите с клавиатуры. пример ввода: 12 пример вывода: 1 2 3 4 6 12 !

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