Задано три чичла abc. если a,b,c - стороны треугольника, то найти его площадь (по формуле герона)

Program Geron;var 
 a, b, c, p, s: real;begin

  readln(a, b, c);  p := (a + b +c) / 2;  s:= sqrt(p*(p - a)*(p - b)*(p -c ));  writeln(s);

end.