Известны координаты вершин A,B,C треугольника. Напишите программу, вычисляющую площадь этого треугольника

program zz1;
var a,b,c,S,p,d,x1,x2,x3,y1,y2,y3:real; //задаем переменные не целого типа
begin
write('введите координаты первой вершины треугольника ');
read(x1, y1);
write('введите координаты второй вершины треугольника ');
read(x2, y2);
write('введите координаты третьей вершины треугольника ');
read(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));
d:=(a+b+c)/2; // находим полупериметр треугольника
if (a+b>c)or(a+c>b)or(c+b>a) // проверяем на существование треугольника, если существует, то вычисляем площадь
then begin s:=sqrt(d*(d-a)*(d-b)*(d-c));write('площадь треугольника = ',s:5:2);end
else write('треугольник не существует ');
end.