Даны координаты 3-х вершин треугольника:
(x1, y1), (x2, y2), (x3, y3).

Даны координаты трех вершин треугольника:
(x1, y1), (x2, y2), (x3, y3).
Отыскать его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости (см. задание Begin20). Для нахождения площади треугольника со гранями a, b, c использовать формулу Герона:
S = (p(p a)(p b)(p c))1/2,
где p = (a + b + c)/2 полупериметр.

Задать свой вопрос

---

var
x1, y1, x2, y2, x3, y3, AB, AC, BC, p, S: real;

begin
writeln(Введите координаты верхушки A: );
readln(x1, y1);
writeln(Введите координаты верхушки B: );
readln(x2, y2);
writeln(Введите координаты вершины C: );
readln(x3, y3);
AB := sqrt(sqr(x2 - x1) + sqr(y2 - y1)); lt;-- Длина стороны AB
AC := sqrt(sqr(x3 - x1) + sqr(y3 - y1)); lt;-- Длина стороны AC
BC := sqrt(sqr(x3 - x2) + sqr(y3 - y2)); lt;-- Длина стороны BC
p := (AB + AC + BC); lt;-- Периметр треугольника ABC
writeln;
writeln( p = , p:0:2); lt;-- Выводим периметр
p := p / 2; lt;-- Находим полупериметр
Площадь треугольника ABC за формулой Герона:
S := sqrt(p * (p - AB) * (p - AC) * (p - BC));
writeln( S = , S:0:2);
readln
end.