Перевод кода - VB (170243)

Sub main()
 Dim x As Double
 x = InputBox("x ---> ")
 If x > 0 Then
   Print 68.1 * Tan(x)
 Else
   If x < 0 Then
      Print Exp(x) + x ^ (1 / 5)
   Else
     Print 0.5
   End If
End If
End Sub