<?php
 
error_reporting(-1);
 
$creditBalance  = 40000;
/* Долг анона перед банком */
$percent        = 1.03;
/* Банк начисляет 3% в месяц от суммы */
$servicePayment = 1000;
/* А также 1000 рублей в месяц комиссии за обслуживание счета */
$monthlyPayment = 5000;
/* Анон платит 5000 р в месяц, это все, что ему дает мама на завтраки */
$paymentTotal   = 0;
/* Сколько всего отдал банку анон */
 
/* Посчитаем расходы 20 раз на 20 месяцев вперед */
for ($month = 1; $month <= 20; $month++) {
	   if ($creditBalance < $monthlyPayment) {
        $monthlyPayment = $creditBalance;
        $paymentTotal   = $paymentTotal + $monthlyPayment;
        echo "Вы выплатили {$paymentTotal} \n";
        break;
    }
 
    $creditBalance =  ($creditBalance * $percent) + $servicePayment;
    $creditBalance = $creditBalance - $monthlyPayment;
    echo "{$month} месяц спустя: долг = {$creditBalance} руб, выплачено всего {$paymentTotal} руб. \n";
    $paymentTotal = $paymentTotal + $monthlyPayment;
 
}

PD9waHAKCmVycm9yX3JlcG9ydGluZygtMSk7CgokY3JlZGl0QmFsYW5jZSAgPSA0MDAwMDsKLyog0JTQvtC70LMg0LDQvdC+0L3QsCDQv9C10YDQtdC0INCx0LDQvdC60L7QvCAqLwokcGVyY2VudCAgICAgICAgPSAxLjAzOwovKiDQkdCw0L3QuiDQvdCw0YfQuNGB0LvRj9C10YIgMyUg0LIg0LzQtdGB0Y/RhiDQvtGCINGB0YPQvNC80YsgKi8KJHNlcnZpY2VQYXltZW50ID0gMTAwMDsKLyog0JAg0YLQsNC60LbQtSAxMDAwINGA0YPQsdC70LXQuSDQsiDQvNC10YHRj9GGINC60L7QvNC40YHRgdC40Lgg0LfQsCDQvtCx0YHQu9GD0LbQuNCy0LDQvdC40LUg0YHRh9C10YLQsCAqLwokbW9udGhseVBheW1lbnQgPSA1MDAwOwovKiDQkNC90L7QvSDQv9C70LDRgtC40YIgNTAwMCDRgCDQsiDQvNC10YHRj9GGLCDRjdGC0L4g0LLRgdC1LCDRh9GC0L4g0LXQvNGDINC00LDQtdGCINC80LDQvNCwINC90LAg0LfQsNCy0YLRgNCw0LrQuCAqLwokcGF5bWVudFRvdGFsICAgPSAwOwovKiDQodC60L7Qu9GM0LrQviDQstGB0LXQs9C+INC+0YLQtNCw0Lsg0LHQsNC90LrRgyDQsNC90L7QvSAqLwoKLyog0J/QvtGB0YfQuNGC0LDQtdC8INGA0LDRgdGF0L7QtNGLIDIwINGA0LDQtyDQvdCwIDIwINC80LXRgdGP0YbQtdCyINCy0L/QtdGA0LXQtCAqLwpmb3IgKCRtb250aCA9IDE7ICRtb250aCA8PSAyMDsgJG1vbnRoKyspIHsKCSAgIGlmICgkY3JlZGl0QmFsYW5jZSA8ICRtb250aGx5UGF5bWVudCkgewogICAgICAgICRtb250aGx5UGF5bWVudCA9ICRjcmVkaXRCYWxhbmNlOwogICAgICAgICRwYXltZW50VG90YWwgICA9ICRwYXltZW50VG90YWwgKyAkbW9udGhseVBheW1lbnQ7CiAgICAgICAgZWNobyAi0JLRiyDQstGL0L/Qu9Cw0YLQuNC70LggeyRwYXltZW50VG90YWx9IFxuIjsKICAgICAgICBicmVhazsKICAgIH0KCQogICAgJGNyZWRpdEJhbGFuY2UgPSAgKCRjcmVkaXRCYWxhbmNlICogJHBlcmNlbnQpICsgJHNlcnZpY2VQYXltZW50OwogICAgJGNyZWRpdEJhbGFuY2UgPSAkY3JlZGl0QmFsYW5jZSAtICRtb250aGx5UGF5bWVudDsKICAgIGVjaG8gInskbW9udGh9INC80LXRgdGP0YYg0YHQv9GD0YHRgtGPOiDQtNC+0LvQsyA9IHskY3JlZGl0QmFsYW5jZX0g0YDRg9CxLCDQstGL0L/Qu9Cw0YfQtdC90L4g0LLRgdC10LPQviB7JHBheW1lbnRUb3RhbH0g0YDRg9CxLiBcbiI7CiAgICAkcGF5bWVudFRvdGFsID0gJHBheW1lbnRUb3RhbCArICRtb250aGx5UGF5bWVudDsKIAp9