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.