В прямоугольном треугольнике известны катет и гипотенуза. Найдите другой катет. решить программным способом

var a,b,c:real; begin write('Катет и гипотенуза:'); readln(a,c); b:=sqrt(abs(c*c-a*a)); writeln('b = ',b); end. Пример: Катет и гипотенуза:3 5 b = 4