Даю 70балов
язык паскаль решите через вайл плииииз

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

Program x;

var

i , x : integer;

Begin

Readln(x);

I:=1;

While I <= x do

Begin

If x mod I = 0 then

Writeln(i);

Inc(I);

End;

End.