用TURBO PASCARL打出分解质因数的程序

两种方法，一种麻烦，一种简单（但我不知道简单的那个对不对，刚打的）
简单的：
var
i,n,num :longint;
f :boolean;
begin
write('Input n:');
readln(n);
write('n=');
f:=false;
for i:=2 to n-1 do begin
while n mod i=0 do begin
if f then write('*',i) else write(i);
f:=true;
n:=n div i;
end;
end;
if f=false then write('1*',n);
end.
复杂的：
program ad;
var
m,n,i,j,k,l,n1,n2:integer;
a:array[1..10000] of integer;
f:array[1..10000] of boolean;
begin
write('Input n:');
readln(n);
fillchar(f,sizeof(f),true);
for i:=2 to n do
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then begin f[i]:=false;break;end;
j