A = InputBox("Введите первое число") b = InputBox("Введите второе число") s= sqr(a*b) MsgBox "Квадратный корень: " & s