найти площадь выпуклого четырёхугольника по координатам его вершин А(x1,y1) B(x2,y2) C (x3,y3) D(x4,y4) — Pascal(Паскаль)

uses crt;
function S3(x1,y1,x2,y2,x3,y3:real):real;{площадь треугольника}
begin
S3:=abs((x1-x2)*(y3-y2)-(y1-y2)*(x3-x2))/2;
end;
var x1,y1,x2,y2,x3,y3,x4,y4,s:real;
begin
clrscr;
writeln('Введите координаты вершины А:');
readln(x1,y1);
writeln('Введите координаты вершины B:');
readln(x2,y2);
writeln('Введите координаты вершины C:');
readln(x3,y3);
writeln('Введите координаты вершины D:');
readln(x4,y4);
writeln('Плошадь ABCD=',s3(x1,y1,x2,y2,x3,y3)+s3(x1,y1,x3,y3,x4,y4):0:2);{сумма площадей 2х треугольников}
readln
end.