Решите при языка паскаля: в прямоуг. треугольнике известен катет и гипотенуза, вычислите площадь.

Program n_1;

uses math;

var a, c:double;

begin

   writeln('Гипотенуза равна');

   read(c);

   writeln('Катет равен');

   read(a);

   c:=sqrt(c*c-a*a)*a;

   writeln('Площадь треугольника равна ', c:0:5);

end.