uses crt;
var a,b,c,d,e,f,k:longint;
 
function nod(a,b:longint):longint;
begin
 if a=b then nod:=a else if a>b then nod:=nod(a-b,b) else nod:=nod(b-a,a);
end;
 
begin
 clrscr;
 write('A/B C/D -> ');
 readln(a,b,c,d);
 e:=a*d+b*c; {сумма  и разность задается тут и зависит от знака}
 f:=b*d;
 k:=nod(e,f);
 e:=e div k;
 f:=f div k;
 writeln(e,'/',f);
 readln;
end.