program AreaOfTriangle;
vara, b, c, s, area: real;
begin// Ввод значений сторон треугольникаwrite('Введите длину стороны a: ');readln(a);
write('Введите длину стороны b: ');readln(b);
write('Введите длину стороны c: ');readln(c);
// Вычисление полупериметраs := (a + b + c) / 2;
// Вычисление площади треугольника по формуле Геронаarea := sqrt(s (s - a) (s - b) * (s - c));
// Вывод результата на экранwriteln('Площадь треугольника со сторонами a = ', a:0:2, ', b = ', b:0:2, ', c = ', c:0:2, ' равна ', area:0:2);end.
program AreaOfTriangle;
var
a, b, c, s, area: real;
begin
// Ввод значений сторон треугольника
write('Введите длину стороны a: ');
readln(a);
write('Введите длину стороны b: ');
readln(b);
write('Введите длину стороны c: ');
readln(c);
// Вычисление полупериметра
s := (a + b + c) / 2;
// Вычисление площади треугольника по формуле Герона
area := sqrt(s (s - a) (s - b) * (s - c));
// Вывод результата на экран
writeln('Площадь треугольника со сторонами a = ', a:0:2, ', b = ', b:0:2, ', c = ', c:0:2, ' равна ', area:0:2);
end.