Program pismeni2;
var br,im:array[1..50]of integer;
    m,i,br_p,im_p,br_s,im_s,j:integer;

Function Skrati(var br, im:integer; k:integer):integer;
var i:integer;
begin
  if (im mod k =0) and (br mod k=0) then
    begin
      i:=1;
      im:=im div k;
      br:=br div k;
    end
   else
      i:=0;
   Skrati:=i;
end;

Procedure Sredi(var br, im:integer);
var i, brojac, ind:integer;
begin
  if im<br then i:=im
           else i:=br;
  
  brojac:=2; 
  while (brojac <= i) do
  begin
    ind:=1;
    while(ind=1) do
      ind:=Skrati(br,im,brojac);
    brojac:=brojac+1;
  end;
end;
Procedure Proizvod(br1,im1,br2,im2:integer; var br, im:integer);
begin 
 im:=im1*im2;
 br:=br1*br2;
 Sredi(br,im);
end;

Procedure Saberi(br1,im1,br2,im2:integer; var br, im:integer);
begin 
 im:=im1*im2;
 br:=br1*im2+br2*im1;
 Sredi(br,im);
end;
 

begin
 readln(m);
 for i:=1 to m do
  readln(br[i],im[i]);
 
 for i:=1 to m do
  writeln(br[i],'/',im[i]);
 
 {Skraceni razlomci}
 for i:=1 to m do
  Sredi(br[i],im[i]);
 for i:=1 to m do
  writeln(br[i],'/',im[i]);
 
 br_p:=1;
 im_p:=1;
 for i:=1 to m do
  Proizvod(br_p,im_p,br[i],im[i],br_p,im_p);
 writeln('Proizvod: ',br_p,'/',im_p);
  
 br_s:=br[1];
 im_s:=im[1];
 for i:=2 to m do
  Saberi(br_s,im_s,br[i],im[i],br_s,im_s);
  
 writeln('Zbir: ',br_s,'/',im_s); 
 
 
 
 i:=1;
while i<=m do
    begin
    if (br[i] mod im[i]=0) or (br[i]<im[i]) then
       begin
       for j:=i to m-1 do
          begin
          br[j]:=br[j+1];
          im[j]:=im[j+1];
          end;
       m:=m-1;
       end
       else i:=i+1;
    end;
writeln;
for i:=1 to m do
   writeln(br[i],'/',im[i]);
 
end.