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.