Даны координаты трех вершин треугольника: (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости — Pascal(Паскаль)

Program Begin21;

Var
  x1, y1, x2, y2, x3, y3: Real;
  a, b, c, p, S: Real;

Begin
  WriteLn('Введите координаты первой вершины');
  RealLn(x1, y1);
  WriteLn('Введите координаты второй вершины');
  RealLn(x2, y2);
  WriteLn('Введите координаты третьей вершины');
  RealLn(x3, y3);
  a := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
  b := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
  c := sqrt(sqr(x1 - x3) + sqr(y1 - y3));
  p := (a + b + c) / 2;
  S = sqrt(p * (p - a) * (p - b) * (p - c));
  WriteLn('Площадь: ', S);
  WriteLn('Периметр:' a + b + c);
  ReadLn;

End.