Ako tačka M pripada trouglu, onda je površina trougla jednaka zbiru površina trouglova , i . Površina trougla može da se izačuna Heronovim obrascem ili (lakše) korišćenjem vektorskog proizvoda vektora određenih temenima trougla (intenzitet vektorskog proizvoda je dvostruka površina trougla). Za vektore sa koordinatama i površina trougla je .

var

f, g : Text;

x, y, x1, y1, x2, y2, x3, y3 : integer;

P, P1, P2, P3 : integer;

function Povrsina(x1, y1, x2, y2, x3, y3 : integer) : integer;

{racunamo dvostruku povrsinu}

begin

Povrsina := abs((x2-x1)*(y3-y1)–(x3–x1)*(y2–y1));

end;

begin

Assign(f,’tacke.in’); Reset(f);

Assign(g,’tacke.out’); Rewrite(g);

Read(f, x1, y1, x2, y2, x3, y3, n);

Close(f); Close(g);

end.