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

Var A,i : Longint;
Begin
  Readln(A);
  For i:=1 to A do If A mod i = 0 then Writeln(i);
end.