Определить площадь треугольника по формуле герона при заданных a,b,c. формула герона: c =корень p*(p-a)*(p-b)*(p-c). где p - полу периметр

Program n1;
var a,b,c,p: real;
begin
readln(a,b,c);
p:=(a+b+c)/2;
write('S=',sqrt(p*(p-a)*(p-b)*(p-c)));
end.