Вычислить площадь прямоугольного треугольники по формуле геросса,если заданы его стороны.

Var
  a: array [1..4] of real;

begin
  readln(a[1], a[2], a[3]);
  a[4] := (a[1] + a[2] + a[3]) / 2;
  writeln(sqrt(a[4] * (a[4] - a[1]) * (a[4] - a[2]) * (a[4] - a[3])));
end.