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

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)); { <-- Длина стороны AB }
AC := sqrt(sqr(x3 - x1) + sqr(y3 - y1)); { <-- Длина стороны AC }
BC := sqrt(sqr(x3 - x2) + sqr(y3 - y2)); { <-- Длина стороны BC }
p := (AB + AC + BC); { <-- Периметр треугольника ABC }
writeln;
writeln(' p = ', p:0:2); { <-- Выводим периметр }
p := p / 2; { <-- Находим полупериметр }
{ Площадь треугольника ABC за формулой Герона: }
S := sqrt(p * (p - AB) * (p - AC) * (p - BC));
writeln(' S = ', S:0:2);
readln
end.