Написать программу на языке Паскаль для нахождения площади треугольника по трем сторонам

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

program AreaOfTriangle;

var
a, b, c, s, area: Real;

begin
Write('Enter the length of side a: ');
Readln(a);

Write('Enter the length of side b: ');
Readln(b);

Write('Enter the length of side c: ');
Readln(c);

s := (a + b + c) / 2; // Semi-perimeter of the triangle

area := Sqrt(s (s - a) (s - b) * (s - c)); // Heron's formula for calculating the area of a triangle

Writeln('The area of the triangle is: ', area:0:2);

Readln;
end.