Ввести 3 стороны треугольника, вывести его площадь. (на языке паскаль) ввести число , вывести квалратный корень.

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

program triangleArea;

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

begin
writeln('Введите длину первой стороны треугольника: ');
readln(a);
writeln('Введите длину второй стороны треугольника: ');
readln(b);
writeln('Введите длину третьей стороны треугольника: ');
readln(c);

p := (a + b + c) / 2;
area := sqrt(p (p - a) (p - b) * (p - c));

writeln('Площадь треугольника равна: ', area:0:2);
end.