program z1678;

Var k: array[1..100,1..2] of real;

d,max:real;

i,n:byte;

begin

max:=0;

write('vv col toch (n<=100)');

readln(n);

write('vv kord toch');

for i:=1 to n do begin

readln(k[i,1],k[i,2]);

d:=k[i,1]+k[i,2]*k[i,2];

if d>max then max:=d;

end;

for i:=1 to n do begin

d:=k[i,1]*k[i,1]+k[i,2]*k[i,2];

if d=max then writeln (k[i,1],k[i,2]);

end;

end.