VB. Dim x As Integer Dim y As Integer Dim z As Integer x = InputBox("Введите x") y= InputBox("Введите y") z = InputBox("Введите z") If (x+y+z) > 0 then MsgBox("YES") else MsgBox("NO")