Sub zad1()
imie = InputBox("Podaj Imie")
nazwisko = InputBox("Podaj Nazwisko")
placa = (10000 - 800 + 1) * Rnd + 800
procent = 0
Select Case placa
    Case Is > 6000
        procent = 0.01
    Case Is > 3500.01
        procent = 0.04
    Case Is > 2000
        procent = 0.05
    Case Is < 2000
        procent = 0.08
End Select
premia = (2 * placa + 100) * procent
MsgBox imie & " " & nazwisko & vbCrLf & "Pensja: " & FormatCurrency(placa) & vbCrLf & "Premia: " & FormatCurrency(premia)
End Sub