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.
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.