program mnogoketnuk1;
{$APPTYPE CONSOLE}
var x,y:array[1..100] of real;
n,i,j,k:integer;
s,p:real;
f:text;
begin
{Задання координат вершин многокутника}
assign(f,'input.txt');
reset(f);
readln(f,n);
for i:=1 to n do
readln(f,x[i],y[i]);
close(f);
{Визначення периметра і площі }
s:=0;p:=0;
x[n+1]:=x[1];
y[n+1]:=y[1];
for i:=1 to n do begin
p:=p+sqrt(sqr(x[i]-x[i+1])+sqr(y[i]-y[i+1]));
s:=s+(x[i]*y[i+1]-x[i+1]*y[i]);
end;
s:=1/2*abs(s);
{Виведення результату}
assign(f,'output.txt');
rewrite(f);
writeln(f,p:2:2);
writeln(f,s:2:2);
close(f);
end.