{ Вычисление площади треугольника через координаты его вершин }
{ Метод: сначала вычисляются длины его сторон, а затем площадь по формуле Герона }
{ x1, y1 - координаты точки A, }
{ x2, y2 - координаты точки B, }
{ x3, y3 - координаты точки C. }
{ a, b, c - длины сторон BC, AC, AB cоответственно }
{ p - полупериметр }
var x1, y1, x2, y2, x3, y3, a, b, c, p, s: real;
begin
writeln('Введите A(x1, y1), B(x2, y2) и C(x3, y3):');
readln(x1, y1, x2, y2, x3, y3);
c := sqrt(sqr(y1 - y2) + sqr(x1 - x2));
a := sqrt(sqr(y2 - y3) + sqr(x2 - x3));
b := sqrt(sqr(y1 - y3) + sqr(x1 - x3));
p := (a + b + c) / 2;
s := p * sqrt((p - a) * (p - b) * (p - c));
writeln('Площадь треугольника = ', s);
end.
