Pascal :

         var n,i:integer;
     s,t,x,y:real;
var a: array[1..1000] of real;
    b: array[1..1000] of real;
begin
  readln(n);
  for i:=1 to n do begin
    read(a[i],b[i]);
    readln;
end;
for i:=1 to n do
  s:=s+a[i];
x:=s/n;
  writeln(x:0:2);
for i:=1 to n do
  t:=t+b[i];
y:=t/n;
writeln(y:0:2);
end.