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

program zz1;

var x, i:integer; / /заводим переменные

begin

write ('введите число х');

read (x); / /вводим с клавиатуры значение для х

for i:=1 to x do / /организуем цикл, который переберет все числа от 1 до х

if x mod i = 0 then write (i,' '); / /проверяем, если i является делителем числа х, то выводим на экран число i в строку через пробел

end.