Составьте программу на Паскале, которая находит второй катет, если известна гипотенуза и первый катет
Var a, b, c:real; begin writeln('Введите значение гипотенузы и катета:'); read(c, a); b := sqrt(c*c - a*a); write(b); end;