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

В программе используется формула Герона. Сначала вычисляется полупериметр p, затем площадь s.

program area1;

var a, b, c, p, s: real;

begin

writeln ('Введите длины трех сторон треугольника');

readln (a);

readln (b);

readln (c);

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

s : = sqrt (p * (p - a) * (p - b) * (p - c));

writeln ('S = ', s:1:1)

end.