先做一个质数表，然后一步步看是否能够整除，直到结果为质数！

var n,i,k:longint;
begin
readln(n);
for i:=2 to n do
begin
while n<>i do
begin
if n mod i=0 then{begin
write(i,'*');
n:=trunc(n/i);
end
else break;
end;
end;
writeln(n);
readln;
end.

楼上你会不会很累啊
一个质数表呢。。。。。。

program lt;
var n,s,i:integer;
begin
  write('N=');readln(n);
  if n<>1 then write(n,'=1*') else write(n,'=1');
  s:=n;
  for i:=2 to n do
  begin
    repeat
      if s mod i=0 then begin s:=trunc(s/i);
         write(i);if s<>1 then write('*'); end;
    until (s mod i<>0);
  end;
  writeln;
end.