用Pascal編寫—輸入壹個正整數n，把它分解成質因子相乘的形式。例如24=2*2*2*3。（用for循環語句）

begin

read(n); write(n,'=');

for i:=2 to trunc(sqrt(n)) do

if n mod i=0 then

begin

while (n mod i=0)and(n div i<>1) do

begin

write(i,'*');

n:=n div i;

end;

if n div i=1 then begin writeln(n); halt; end;

end;

end.