Навальный 20!8

var s,v:string;

x,a,b,c,d,i,j,k,l,code:longint;

begin

readln(s);

x:=pos('^',s);

v:=copy(s,1,x-1);

val(v,a,code);

delete(s,1,x);

x:=pos(' ',s);

v:=copy(s,1,x-1);

val(v,b,code);

delete(s,1,x);

x:=pos('^',s);

v:=copy(s,1,x-1);

val(v,c,code);

delete(s,1,x);

val(s,d,code);

if b*(ln(a)/ln(2))<d*(ln(c)/ln(2)) then writeln(c,'^',d) else writeln(a,'^',b);

end.