回贴呀~我等好几天了,,,

回贴就加分Q!!

我的:
program fenjie;
var inp:longint;
    ans:array [1..10000] of longint;
function prime(p:longint):boolean;
var i:longint;
begin
  for i:=2 to trunc(sqrt(p)) do
    if (p mod i=0) then exit(false);
  exit(true);
end;
procedure main;
var i,j,wei,n:longint;
begin
  fillchar(ans,sizeof(ans),0);
  if n<=1 then exit;
  if n<=3 then
  begin
    ans[1]:=n;
    exit;
  end;
  wei:=0;
  n:=inp;
  for i:=2 to (inp div 2) do
  begin
    if wei>10000 then
    begin
      writeln('TOO MUCH');
      halt;
    end;
    if prime(i) then if (n mod i=0) then
      repeat
        wei:=wei+1;
        ans[wei]:=i;
        n:=n div i;
      until (n mod i<>0);
  end;
end;
procedure print;
var i,j:integer;
begin
  i:=1000;
  while (ans[i]=0) and (i>0) do
    i:=i-1;
  if i=0 then
  begin
    writeln('No solution');
    halt;
  end;
  for j:=1 to i do
    write(ans[j],' ');
end;
begin
  readln(n);
  main;
  print;
end.