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