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

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