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

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