{* Задача146 *}

REM basic

' Известен объём ипотечного кредита, взятого на приобретение квартиры, и неизменный годовой процент по кредиту – 15%. На сколько больше объёма кредита будет сумма, выплаченная клиентом, если кредит взят на 15 лет?


Dim Vol As Double, RealVol, WP As Double
Dim I As Integer
INPUT RealVol
Vol = RealVol
WP = (RealVol / 100 * 15)
For I = 1 To 15
    Vol = Vol + WP
Next
PRINT "Need To pay: "; Vol
PRINT "Proc: "; Vol - RealVol