怎樣用素數相乘的方式表示和數 用free pascal語言

var

n,nn,i,j:longint;

begin

readln(n);

nn:=n;

write(n,'=');

for i:=2 to trunc(sqrt(n)) do if n mod i=0 then break;

write(i);

n:=n div i;

nn:=nn div i;

for j:=i to n do begin

while nn mod j=0 do begin

write('*',j);

nn:=nn div j;

end;

if nn=1 then break;

end;

end.