Опишите переменные, необходимые для вычисления площади треугольника по его трем сторонам, и запишите оператор, обеспечивающий ввод необходимых исходных данных.

//a,b,c-стороны треугольника
//p-полупериметр

var
a, b, c, p: real;

begin
readln(a, b, c);
p := (a + b + c) / 2;
writeln('S=', sqrt(p * (p - a) * (p - b) * (p - c))); // формула герона
end.