программа в freepfscal нахождение площади треугольника, половина есть, что дальше?
program dana;
uses SRT
var a, b, c, P, S: real
begin
p:=(a+b+c)/2
S:=sqrt(p*(p-a)*(p-b)*(p-c))
помогите пожалуйста

var a, b, c, P, S: real;beginreadln(a);readln(b);readln(c);p:=(a+b+c)/2;S:=sqrt(p*(p-a)*(p-b)*(p-c));writeln(s);end.