uses crt; var n:longint; function pt(n:longint):byte; var i:longint; begin i:=2; while n<>1 do begin while n mod i = 0 do begin write(i); if n<>i then write('*'); n:=n div i; end; inc(i); end; exit(0); end; begin clrscr; readln(n); pt(n); readln; end.
