Составьте программу, выводящую ** экран все делители числа x. число x введите с...

Question

Составьте программу, выводящую на экран все делители числа x. число x введите с клавиатуры.
очень срочно! !!!

Answer 1

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