Составьте программу на паскале, которая находит второй катет, если известна гипотенуза и первый катет

Var a, b, c:real;

begin
writeln('Введите значение гипотенузы и катета:');
read(c, a);
b := sqrt(c*c - a*a);
write(b);
end;