怎么找出一个整数的所有最小因子?例如输入120,输出就应该2,2,2,3,5.请大家给个思路,

怎么找出一个整数的所有最小因子?例如输入120,输出就应该2,2,2,3,5.请大家给个思路,
怎么找出一个整数的所有最小因子?例如输入120,输出就应该2,2,2,3,5.请大家给个思路,

怎么找出一个整数的所有最小因子?例如输入120,输出就应该2,2,2,3,5.请大家给个思路,
var n,i:longint;
begin
  readln(n);
  i:=2;
  while i*i<=n do
  begin
    while n mod i=0 do
    begin
      write(i,' ');
      n:=n div i;
    end;
    inc(i);
  end;
  if n>1 then writeln(n) else writeln;
end.