известны длины сторон треугольника a, b, c. Напишите программу, вычисляющую площадь этого треугольника ​

var

 a, b, c, p: real;

begin

 read(a, b, c);

 p := (a + b + c) / 2;

 write('Площадь треугольника = ', sqrt(p * (p - a) * (p - b) * (p - c)));

end.