{
TASK:GREEN
LANG:PASCAL
}
{var
 a:array[1..100,1..2] of longint;
 i,m:integer;
 f:boolean;
 p:real;
 pmax:record
      s:real;
      v,n:integer;
 function dist:real;
 begin
  dist:=sqrt(sqr(a[x,1]-a[1,1])+sqr(a[x,2]-a[1,2]))
 end;
begin
  pmax.s:=-1;
  pmax.v:=101;
 repeat
  p:=1;
  read(m);
  if m=0 then f:=true
         else for i:=1 to m do read(a[i,1],a[i,2]);
  if m=3 then p:=dist(2)*dist(3)*cos(alfa);
         else for i:=2 to m-1 do
                  p:=p+dist(i)*dist(i+1)*cos(m-2*pi/m);
  if (pmax.s<p) and (pmax.v<m) then

 until f;
end.}
begin
 writeln('1');
end.