Sub Процент()
Dim P, S, n, x As Integer
P = InputBox("сумма положенная на счет")
S = InputBox("Сумма счета после исчесления")
n = InputBox("Месяц хронения")
x = ((((P - S) / n) * 100) / 100) / S
MssBox x, ("Процент")

End Sub