Написать линейную программу нахождения площади треугольника по 3 его сторонам!!

begin
  var (a,b,c):=ReadReal3('Введите стороны треугольника:');
  var p:=(a+b+c)/2;
  Writeln('S=',Sqrt(p*(p-a)*(p-b)*(p-c)):0:3)
end.


Введите стороны треугольника: 13 8 11.3
S=44.843