Найти площадь четырехугольника по координатам точки Опции

[Dranik7]

Даны 4 точки на плоскости, образующие выпуклый четырехугольник и точка внутри этого 4-угольника. Все точки заданы своими координатами. Найдите площадь этого четырехугольника.

Пожалуйста помогите решить

Сообщение отредактировано: Dranik7 - 10.10.2010 20:25

[Dranik7]

function dl(x1,x2,y1,y2:integer):integer;
begin
   dl:=trunc(sqrt(sqr(y2-y1)+sqr(x2-x1)));
end;
var
   s,a,b,c,d,x1,x2,x3,x4,y1,y2,y3,y4:integer;
begin
      readln(x1,y1);
      readln(x2,y2);
      readln(x3,y3);
      readln(x4,y4);
      a:=dl(x1,y1,x2,y2);
      b:=dl(x2,y2,x3,y3);
      c:=dl(x3,y3,x4,y4);
      d:=dl(x4,y4,x1,y1);
      S:= ФОРМУЛА
      writeln(s);
      readln;
end.

Вот сделал что смог,
неполучается выразить формулу