var
n:longint;
k:integer;
i:integer;

begin
writeln('Programma sadala skaitli reizinatajos!');
write('n=');
readln(n);
write(n,'=');
if n=1 then writeln('1');
i:=2;
while n<>1 do
 begin
 IF n mod i=0 then
  begin
  write(i);
  k:=0;
  repeat
  n:=n div i;
  inc(k);
  until n mod i<>0;
if k<>1 then write('^',k,'');
if n<>1 then write('*');
end;
inc(i);
end;
readln;
END.