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

prog poi; / название программы, может быть любое, в каких то версиях ставится само;

var x, del : integer; / переменные целого типа;

begin / тело программы;

write ('Введите x : '); / просим ввести пользователя значение числа х;

readln (x); / ввод числа;

write ('Делители : '); / делители;

for del : = 1 to x do / цикл в котром выбираются делители;

if (x mod del) = 0 then

write (del, ' '); / выводим делители на экран;

writeln;

end.