Многоугольник задан координатами его вершин. N - колличество вершин. N+1-я точка - та же, что и первая.

for i:=1 to n do s:=s+(x[i+1]-x[i])*(y[i+1]+y[i])/2;
s:=abs(s)