Program Squere;

uses CRT;

var a,b,c,S,p : real;

begin

 ClrScr;

 Write${}^{\prime }Ввыедитеa{:}^{\prime }$;Readln$a$;

 Write${}^{\prime }Ввыедитеb{:}^{\prime }$;Readln$b$;

 Write${}^{\prime }Ввыедитеc{:}^{\prime }$;Readln$c$;

 p:=$a+b+c$/2;

 S:=sqrt$p\ast (p-a)\ast (p-b)\ast (p-c)$;

 Writeln${}^{\prime }Площадьравн{а}^{\prime },S$;

 Readln;

end.