{* Задача234 *}

REM basic

' Рассчитать реальный прирост P суммы V на счете в банке через 3 года после
' его открытия, если вклад увеличивается на 5% за четыре месяца, а инфляция
' составляет 17% в год


CLS

INPUT "Введите начальную сумму на счете ", V0
V = V0

For i = 4 To 12 Step 4
        V = V * 1.05
Next i

V = V * (1 - .17)

For i = 4 To 12 Step 4
        V = V * 1.05
Next i

V = V * (1 - .17)

For i = 4 To 12 Step 4
        V = V * 1.05
Next i

V = V * (1 - .17)

PRINT "Реальный прирост суммы вклада составит "; V - V0

End