Пусть даны длины сторон треугольника. вычислите его площадь.

Var s,p,a,b,c:real;
begin
readln(a,b,c);
p:=(a+b+c)/2; 
s:=sqrt(p*(p-a)*(p-b)*(p-c)); 
writeln('Площадь треугольника: ',s);
end.