EXP (SIN(X))
Объяснение:
Может так, надеюсь.
var a,b: integer;
begin
readln(a);
for i: =2 to a do
if a mod i == 0 do
println(i);
a: =a/i;
end;
! поставь я сторался