Помогите решить задачу в Паскале. Известна гипотенуза и один из катетов прямоугольного треугольника. Найдите второй катет
Var a,b,c:real; begin writeln('введите гипотенузу '); readln(a); writeln('введите катет '); readln(b); c:=sqrt(sqr(a)-sqr(b)); writeln('второй катет треугольника = ',c); end.