program aria;
  var n,i:longint;
      x,y,x1,y1,a,b,s:extended;
      buf:array[1..100000]of byte;

begin
  assign(input,'aria.in');
  reset(input);
  settextbuf(input,buf);
  assign(output,'aria.out');
  rewrite(output);
  readln(n);
  readln(a,b);
  x1:=a;y1:=b;
  for i:=2 to n do
    begin
      readln(x,y);
      s:=s+(y+y1)*(x-x1);
      x1:=x;y1:=y;
    end;
  x:=a;y:=b;
  s:=s+((y+y1)*(x-x1));
  s:=abs(s/2);
  writeln(s:0:6);
  close(input);close(output);
end.