用Pascal编写—输入一个正整数n,把它分解成质因子相乘的形式.例如24=2*2*2*3.（用for循环语句）

var n,i:longint;
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 i1) do
begin
write(i,'*');
n:=n div i;
end;
if n div i=1 then begin writeln(n); halt; end;
end;
end.