найти все делители натурального числа N
Ответ
12
program aaa;
var d, n : integer;
begin
write ('введите число N-');
readln (n);
writeln('Делители числа: ');
for d :=1 to n do
if n mod d = 0 then writeln (d)
end.