Написать программу для Паскаля. Даны координаты вершин треугольника АВС. Найти его площадь.

Предыдущий
вопрос Следующий
вопрос

program TriangleArea;

var
Ax, Ay, Bx, By, Cx, Cy: real;
Area: real;

begin
writeln('Enter the coordinates of point A:');
readln(Ax, Ay);

writeln('Enter the coordinates of point B:');
readln(Bx, By);

writeln('Enter the coordinates of point C:');
readln(Cx, Cy);

Area := 0.5 abs((Ax(By-Cy) + Bx(Cy-Ay) + Cx(Ay-By)));

writeln('The area of the triangle ABC is:', Area:0:2);
end.