Известны длины сторон треугольника a,b,c. напишите программу вычисления его площади по формуле герона. написать программу в паскаль

Program geron;
var A,b, c,p,s:real;
begin
readln(a,b, c);
p:=0.5*a*b*c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь треугольника: ',s);
end.