OJ Board

Const
Maxn=30;
e0=1e-10;
pi=3.14159265358979323846;

Type
Point=Record
x,y:Longint;
End;

Var
p:Array[0..Maxn] Of Point;
n:Longint;
Max,Min:Extended;

Procedure Init;
Var
i:Longint;
Begin
For i:=1 To n Do With p Do Read(x,y);
p[0]:=p[n];
p[n+1]:=p[1];
End;

Function Line(p1,p2:Point ...