Begin21. Даны координаты трех вершин треугольника: (x₁, y₁), (x₂, y₂), (x₃, y₃). Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости (см. задание Begin20). Для нахождения площади треугольника со сторонами a, b, c использовать формулу Герона:, где p=(a+b+c)/2 – полупериметр.
var x1, y1, x2, y2, x3, y3, p, s, a, b, c: real;
begin
  write('Введите координаты первой вершины треугольника ->');
  readln(x1, y1);
  write('Введите координаты второй вершины треугольника ->');
  readln(x2, y2);
  write('Введите координаты третьей вершины треугольника ->');
  readln(x3, y3);
  a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
  c:=sqrt(sqr(x3-x2)+sqr(y3-y2));
  p:=(a+b+c)/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Площадь треугольника = ', s:6:2);
end.