Question

В прямоугольном треугольнике известны катет и гипотенуза(ввод с клавиатуры) нацти другой катет

Answer 1

Var a, c: real;
begin
   readln(a, c);
   writeln(sqrt(sqr(c) - sqr(a)));
end.