program task;
var
n, i, power, copy: integer;
flag: boolean;

begin
readln( n );
copy := n;
i := 2;
flag := false;
while copy <> 1 do begin
while copy mod i <> 0 do
i := i + 1;
power := 0;
while ( copy mod i = 0 ) do begin
copy := copy div i;
power := power + 1;
end;
if flag then write( '*' )
else flag := true;
if power > 1 then
write( i, '^', power )
else
write( i );
i := i + 1;
end;
writeln;
end.
переведите на питон