program mn;
uses crt;
var prostie:array[1..100]of integer;
i,n,k:integer;
function pr(var k:integer):integer;
var g:integer;
begin
pr:=0;
for g:=2 to k div 2 do
if k mod g = 0
then pr:=1;
end;
procedure raz;
var g:integer;
begin
g:=1;k:=i;
While (k>1)and(g begin
if k mod prostie[g]=0
then begin write('*',prostie[g]);
k:=k div prostie[g];
g:=1;
end
else inc(g);
end;
if k>1
then write('*',k);
end;
BEGIN
ClrScr;
for i:=3 to 120 do
if pr(i)=0
then begin
inc(n);
prostie[n]:=i;
end;
i:=101;
While i<=120 do
begin
raz;
write('=',i);
writeln;
inc(i);
end;
readln;
END.