Нужна помощь завтра сдавать задачи! Pascal ABC
Даны два треугольника ABC и DEF с координатами вершин (Ax,Ay), (Bx,By), (Cx,Cy), (Dx,Dy), (Ex,Ey), (Fx,Fy). Составьте алгоритм или программу, определяющую, какой из треугольников имеет большую площадь.

Спасибо большое!)

Без проверки полагаем, что по заданным координатам точек можно построить треугольники.//PascalABC.Net 3.0, сборка 1111type  Point=record  x,y:double  end;function TriangleSquare(A,B,C:Point):double;begin  Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y))end;procedure GetPoint(c:char; var A:Point);begin  Write('Введите координаты точки ',c,': ');  Readln(A.x,A.y)end;var  A:array['A'..'F'] of Point;  i:'A'..'F';  s1,s2:double;begin  for i:='A' to 'F' do GetPoint(i,A[i]);  s1:=TriangleSquare(A['A'],A['B'],A['C']);  s2:=TriangleSquare(A['D'],A['E'],A['F']);  if s1>s2 then Writeln('Площадь первого треугольника больше')  else    if s2>s1 then Writeln('Площадь второго треугольника больше')    else Writeln('Площади треугольников равны')end.Тестовое решение:Введите координаты точки A: -4 3.7Введите координаты точки B: -6.3 0Введите координаты точки C: 10.2 5.93Введите координаты точки D: 7.143 8.1Введите координаты точки E: -6 -3Введите координаты точки F: 7.4 -5.7Площадь второго треугольника больше