Заданы координаты трех вершин треугольника

Для решения данной задачи необходимо вспомнить формулы длины прямой, заданной координатами, периметра и полупериметра треугольника, а также площади треугольника по трем сторонам:

Формулы длины прямой по координатам, периметра, полупериметра и площади треугольника

Далее пишем простейшую программу:

program z_8;
var x1, y1, x2, y2, x3, y3, P, p2, S, a, b, c: real;
begin
  write('Координаты первой точки (через пробел)');  read(x1, y1);
  write('Координаты второй точки (через пробел)');  read(x2, y2);
  write('Координаты третьей точки (через пробел)');  read(x3, y3);
  a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
  c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
  P:=a+b+c;
  p2:=P/2;
  S:=sqrt(p2*(p2-a)*(p2-b)*(p2-c));
  writeln('Периметр: ', P);
  writeln('Площадь: ', S);
end.