Напишите функцию,вычисляющую площадь треугольника по целочисленным координатам верш - Pascal

function pl_tr(var ax,ay,bx,by,cx,cy: integer): real;
var a,b,c,p: real;
begin
  a:=sqrt(sqr(ax-bx)+sqr(ay-by));
  b:=sqrt(sqr(bx-cx)+sqr(by-cy));
  c:=sqrt(sqr(cx-ax)+sqr(cy-ay));
  p:=(a+b+c)/2;
  pl_tr:=sqrt(p*(p-a)*(p-b)*(p-c));
end;