Известны длины сторон треугольника 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.