Private Sub Command1_Click()
Const n% = 12
Dim P(1 To n%) As Single
Debug.Print "Дані про суму пенсії"
For i% = 1 To n%
Title$ = "Введіть суму пенсії"
Prt$ = "P(" & i% & ")"
P(i%) = Val(InputBox(Pri$, Title$))
Sum = Sum + P(i%)
Debug.Print P(i%); " ";
Next i%
Debug.Print
Sum = 0
For i% = 1 To n%
Sum = P(i% + 1) - P(i%)
Debug.Print "Сума перерахунку"; Format(Sum, "######.00000")
If Sum > 0 Then Debug.Print "Проводили перерахунок пенсії"; i%; "- го місяця"
If Sum = 0 Then Debug.Print "Не проводили перерахунок пенсії"; i%; "- го місяця"
Next i%
End Sub