program test5;
Var i, j, n, n1:longint ;
begin
readln (n) ;
i:=2; j:=0; n1:=n;
while n1<>1 do begin
while n1 mod i=0 do begin
inc (j) ;
if j=1 then write(n, '=',i)
else write ( '*' , i) ;
n1:=n1 div i;
end;
inc(i);
end;
end.
输入：102
输出：102=2*3*17