求三角形面积

program triarea;
const
　　a = 10.65;
　　b = 15.245;
　　c = 21.386;
var
　　s, p : real;
begin
　　p := (a+b+c)/2;
　　s := sqrt(p * (p-a) * (p-b) * (p-c));
　　writeln(s:10:5);
end.