<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u> <u>// Внимание! Если программа не работает, обновите версию!</u>
begin var a:=ReadReal('a='); var b:=ReadReal('b='); var c:=ReadReal('c='); var p:=(a+b+c)/2; var s:=Sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('s=',s:0:1) end.