Как через QBasic найти катет прямоугольного треугольника

Dim a As Integer Dim b As Integer Dim c As Integer Input a'гипотенуза Input b ' известный катет с = sqr(a*a+b*b)