program symetry;

var
 bod: array [1..20000] of record bx, by : Integer; end;
 x, y, i, j, N : Integer;
 minx, miny, maxx, maxy : Integer;
 sym : Boolean;
 cx, cy : Real;

begin
 readln(N);
 while (N>0) do begin
  sym := ((N and 1) = 0);

  for i := 1 to N do begin
   readln(x,y);
   if sym then begin
    with bod[i] do begin bx := x; by := y; end;
    if i=1 then begin minx := x; maxx := x; miny := y; maxy := y; end
    else begin
     if x<minx then minx := x;
     if y<miny then miny := y;
     if x>maxx then maxx := x;
     if y>maxy then maxy := y;
    end;
   end;
  end;  { nacitani } 

   if (sym) then begin
    cx := (minx + maxx) / 2;
    cy := (miny + maxy) / 2;
    for i := N downto 2 do if bod[i].bx<100001 then begin 
     sym := FALSE;
     with bod[i] do begin
      x := round(2*cx -  bx);
      y := round(2*cy - by);
     end;
     for j := i-1 downto 1 do begin
      with bod[j] do begin
       if (bx=x) and (by=y) then begin
        bx := 100001;
        sym := TRUE;
	break;
       end;
      end;
     end; { for j }
     if not sym then break;
    end; { for i }
   end; { if sym }

  if not sym then
   writeln('This is a dangerous situation!')
  else
   writeln('V.I.P. should stay at (', cx:0:1, ',', cy:0:1, ')');

  Readln(N); 
 end;
end.