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

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