program ndj;
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
p:=(a+b+c)/2; \\ высчитывает полупериметр
s:=sqrt(p*(p-a)*(p-b)*(p-c)); \\ высчитывает площадь
writeln(s);
readln;
end.
program ndj;
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
p:=(a+b+c)/2; \\ высчитывает полупериметр
s:=sqrt(p*(p-a)*(p-b)*(p-c)); \\ высчитывает площадь
writeln(s);
readln;
end.