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.
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.