program CalcKatet;
var
hypotenuse, anotherKatet: real;

begin
writeln('Введите гипотенузу:');
readln(hypotenuse);

writeln('Введите другой катет:');
readln(anotherKatet);

if (hypotenuse > anotherKatet) then
begin
writeln('Катет прямоугольного треугольника = ', sqrt((hypotenuse hypotenuse) - (anotherKatet anotherKatet)));
end
else
begin
writeln('Ошибка: Гипотенуза должна быть больше другого катета.');
end;
end.