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

program divide;

var N:integer;

begin

writeln ('Введите целое число N');

readln (N);

writeln ('Делители числа ', N);

for i:integer : = 1 to n do if n mod i = 0 then write (i, ' ');

//Если остаток от деления числа N

//на увеличивающееся в цикле число i

//равен нулю, то вывести число-делитель i

end.