Найти площадь треугольника по трем сторонам

Program as;
var a,b,c,d,p,s:real;
uses crt;
clrscr;
begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
readln;
end.