program xxx;
var i, n : integer;
begin
write ('введите число N-');
readln (n);
writeln('Делители числа: ');
for i :=1 to n do
if n mod i = 0 then writeln (i)
end.
