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

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