Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100.

Microsoft Visual Basic 2010(более ранние тоже прокатят)

 Dim I As Single    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        I = Val(InputBox("Введите число"))        If I >= 0 Then            I = I - 50        Else            I = I + 100        End If        MsgBox(I)    End Sub

Просто на Basic

Dim I As Single

Input(I)

If I >= 0 Then            I = I - 50        Else            I = I + 100        End If

Print I

End