var a,b,c,s,p:real;
begin
read(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write(s:0:2);
end.
Вроде так
var a,b,c,s,p:real;
begin
read(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write(s:0:2);
end.
Вроде так