program daf;
var a, b, c, d, e: real;
begin
readln(a, b, c);
d:=(a+b+c)/2;
e:=sqrt(d*(d-a)*(d-b)*(d-c));
writeln(e:0:3);
end.
Объяснение:
program daf;
var a, b, c, d, e: real;
begin
readln(a, b, c);
d:=(a+b+c)/2;
e:=sqrt(d*(d-a)*(d-b)*(d-c));
writeln(e:0:3);
end.
Объяснение: