我用delphi控制台给你做了一个这样的程序，语法一样的你把它写到pascal里试试uses SysUtils;vari, j: integer;Num: integer;beginfor j := 2 to 100 dobegin
Num := j;
Write(IntToStr(Num) + '=');
i := 2;
while i < Num / 2 do
begin
if Num mod i = 0 then
begin
Write(IntToStr(i) + 'x');
Num := Trunc(Num / i);
end
else
begin
Inc(i);
end;
end;
Writeln(IntToStr(Num));end;end.
