Известны координаты вершин 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.