Выведите все натуральные делители числа x в порядке возрастания (включая 1 и само число)....

Question

Выведите все натуральные делители числа x в порядке возрастания (включая 1 и само число).

Входные данные
Вводится натуральное число x

Выходные данные
Выведите все делители числа x

Примеры
входные данные
7
выходные данные
1 7
входные данные
21
выходные данные
1 3 7 21

Answer 1

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