Известны длины сторон треугольника a,b,c. напишите на языке Паскаль программу, вычисляющую площадь этого треугольника. пример входных данных: а=3 b=4c=5. пример выходных данных S=6.0

Предыдущий
вопрос Следующий
вопрос

program triangleArea;
var
a, b, c, p, S: real;
begin
// ввод длин сторон треугольника
writeln('Введите длины сторон треугольника a, b и c:');
readln(a, b, c);

// вычисление полупериметра
p := (a + b + c) / 2;

// вычисление площади треугольника по формуле Герона
S := sqrt(p (p - a) (p - b) * (p - c));

// вывод результат
writeln('Площадь треугольника: ', S:0:1);
end.