一道free pascal题

来源：百度知道 编辑：UC知道 时间：2024/06/20 16:53:23
求2到100中每个数的质因数，输出如下：
2=2
3=3
4=2*2
。。。。。
。。。。
到100=2*2*5*5

请问要怎么编？

program cs;
var
num:array[2..100] of boolean;
i,j:longint;

procedure fun(p:longint);
var
i,j:longint;
begin
write(p,'=');
for i:=2 to 100 do
begin
if num[i] then
begin
while (p mod i )=0 do
begin
write(i); p:=p div i;
if p<>1 then write('*')else writeln;
end;
end;
end;
end;

begin
fillchar(num,sizeof(num),1);
i:=2;
while i<=100 do
begin
if num[i] then
begin
j:=i+i;
while j<=10