Переменные а,в и с содержат длины сторон треугольника. вычислите площадь этого треугольника

Var a,b,c,p:real;
Begin
//Формула Герона
p:=(a+b+c)/2;
a:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(a:2:3);
end.