program aria;
var f,g:Text;
    x,y:array[0..100005] of longint;
    i,n,j,k,u,x1,y1,x2,y2:longint;
begin
assign(f,'aria.in');reset(F);
assign(g,'aria.out');rewrite(G);
 readln(f,n);
 for i:=1 to n do
        readln(f,x[i],y[i]);
 x[n+1]:=x[1];
 y[n+1]:=y[1]; K:=0;
 for i:=1 to n do
        k:=k+(x[i]*y[i+1])-(x[i+1]*y[i]);
 writeln(g,ABS((k / 2)):0:5);
close(F);
close(G);
end.