Question

Найти площадь трехугольника по формуле Герона.Значение вводится клавиатура

Answer 1

var
    a, b, c, p: real;

begin
    readln(a, b, c);
    p := 0.5 * (a + b + c);
    writeln('S = ', sqrt(p * (p - a) * (p - b) * (p - c)));
end.