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

PD9waHAKIAplcnJvcl9yZXBvcnRpbmcoLTEpOwogCiRjcmVkaXRCYWxhbmNlID0gNDAwMDA7IC8qINCU0L7Qu9CzINCw0L3QvtC90LAg0L/QtdGA0LXQtCDQsdCw0L3QutC+0LwgKi8KJHBlcmNlbnQgPSAxLjAzOyAvKiDQkdCw0L3QuiDQvdCw0YfQuNGB0LvRj9C10YIgMyUg0LIg0LzQtdGB0Y/RhiDQvtGCINGB0YPQvNC80YsgKi8KJHNlcnZpY2VQYXltZW50ID0gMTAwMDsgLyog0JAg0YLQsNC60LbQtSAxMDAwINGA0YPQsdC70LXQuSDQsiDQvNC10YHRj9GGINC60L7QvNC40YHRgdC40Lgg0LfQsCDQvtCx0YHQu9GD0LbQuNCy0LDQvdC40LUg0YHRh9C10YLQsCAqLwokbW9udGhseVBheW1lbnQgPSA1MDAwOyAvKiDQkNC90L7QvSDQv9C70LDRgtC40YIgNTAwMCDRgCDQsiDQvNC10YHRj9GGLCDRjdGC0L4g0LLRgdC1LCDRh9GC0L4g0LXQvNGDINC00LDQtdGCINC80LDQvNCwINC90LAg0LfQsNCy0YLRgNCw0LrQuCAqLwokcGF5bWVudFRvdGFsID0gMDsgLyog0KHQutC+0LvRjNC60L4g0LLRgdC10LPQviDQvtGC0LTQsNC7INCx0LDQvdC60YMg0LDQvdC+0L0gKi8KJGRlYnQgPSAwOwokcGF5b3V0ID0gMDsKIAovKiDQn9C+0YHRh9C40YLQsNC10Lwg0YDQsNGB0YXQvtC00YsgMjAg0YDQsNC3INC90LAgMjAg0LzQtdGB0Y/RhtC10LIg0LLQv9C10YDQtdC0ICovCmZvciAoJG1vbnRoID0gMTsgJG1vbnRoIDw9IDIwOyAkbW9udGggKyspIHsKICAgIAogICAgICAgICRkZWJ0ID0gJGNyZWRpdEJhbGFuY2U7CiAgICAgICAgJHBheW91dCA9IG1pbigkbW9udGhseVBheW1lbnQsICRkZWJ0KTsKICAgICAgICAkY3JlZGl0QmFsYW5jZSA9ICgkY3JlZGl0QmFsYW5jZSAtICRwYXlvdXQpICogJHBlcmNlbnQgKyAkc2VydmljZVBheW1lbnQ7CiAgICAgICAgJHBheW1lbnRUb3RhbCA9ICRwYXltZW50VG90YWwgKyAkcGF5b3V0OwogICAgICAgIGVjaG8gInskbW9udGh9INC80LXRgdGP0YYg0YHQv9GD0YHRgtGPOiDQtNC+0LvQsyA9IHskZGVidH0g0YDRg9CxLCDQstGL0L/Qu9Cw0YfQtdC90L4g0LLRgdC10LPQviB7JHBheW1lbnRUb3RhbH0g0YDRg9CxLiBcbiI7CiAKICAgICAgLyog0JXRgdC70Lgg0LHQsNC70LDQvdGBINC+0YLRgNC40YbQsNGC0LXQu9GM0L3Ri9C5IOKAlCDRhdCy0LDRgtC40YIg0YHRh9C40YLQsNGC0YwgKi8KICAgICAgaWYgKCRjcmVkaXRCYWxhbmNlIDw9IDEwMDApIHsKICAgICAgICAgIGVjaG8gItChINC80LXQvdGPINGF0LLQsNGC0LjRgiFcbiI7CiAgICAgICAgICBicmVhazsKICAgICAgfQp9