Найти все простые делители натурального числа N. Входные данные: Ввести одно число N (1<=N<=200000000). Выходные данные: Вывести все простые делители натурального числа N в порядке их возрастания.

Var i, k, n, m: integer;

begin

write ('N = '); readln (n);

m:=round (sqrt (n));

i:=2; k:=1;

repeat

if (n mod i=0) then

begin

if ik then

begin

write (i,' ');

k:=i;

end;

n:=n div i;

m:=round (sqrt (n));

i:=1;

end;

i:=i+1;

until i>m;

if kn then writeln (n);

end.

N = 43021568

2 163 1031

N = 625

5

N = 189756328

2 67 354023