<?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 ++) {
 
	$creditBalance = ( $creditBalance * $percent ) + $servicePayment;
	 if ($creditBalance < 5000) {
      	 $monthlyPayment = $creditBalance;
	 }
     else {
     	$monthlyPayment = 5000;
     } 	 
	$paymentTotal = $paymentTotal + $monthlyPayment;
	echo "{$month} месяц спустя: долг = {$creditBalance} руб, выплачено всего {$paymentTotal} руб. \n";
 
      /* Если баланс отрицательный — хватит считать */
     	if ($creditBalance < 0) {
          echo "С меня хватит!\n";
          break;
      }
 
 
}
 
/*- прибавляем проценты и комиссию к остатку долга (!не вычитаем ничего пока!)
- если остаток маленький, выплачиваем сколько осталось и уходим
- иначе платим 5000 */

PD9waHAKIAplcnJvcl9yZXBvcnRpbmcoLTEpOwogCiRjcmVkaXRCYWxhbmNlID0gNDAwMDA7IC8qINCU0L7Qu9CzINCw0L3QvtC90LAg0L/QtdGA0LXQtCDQsdCw0L3QutC+0LwgKi8KJHBlcmNlbnQgPSAxLjAzOyAvKiDQkdCw0L3QuiDQvdCw0YfQuNGB0LvRj9C10YIgMyUg0LIg0LzQtdGB0Y/RhiDQvtGCINGB0YPQvNC80YsgKi8KJHNlcnZpY2VQYXltZW50ID0gMTAwMDsgLyog0JAg0YLQsNC60LbQtSAxMDAwINGA0YPQsdC70LXQuSDQsiDQvNC10YHRj9GGINC60L7QvNC40YHRgdC40Lgg0LfQsCDQvtCx0YHQu9GD0LbQuNCy0LDQvdC40LUg0YHRh9C10YLQsCAqLwokbW9udGhseVBheW1lbnQgPSA1MDAwOyAvKiDQkNC90L7QvSDQv9C70LDRgtC40YIgNTAwMCDRgCDQsiDQvNC10YHRj9GGLCDRjdGC0L4g0LLRgdC1LCDRh9GC0L4g0LXQvNGDINC00LDQtdGCINC80LDQvNCwINC90LAg0LfQsNCy0YLRgNCw0LrQuCAqLwokcGF5bWVudFRvdGFsID0gMDsgLyog0KHQutC+0LvRjNC60L4g0LLRgdC10LPQviDQvtGC0LTQsNC7INCx0LDQvdC60YMg0LDQvdC+0L0gKi8KIAovKiDQn9C+0YHRh9C40YLQsNC10Lwg0YDQsNGB0YXQvtC00YsgMjAg0YDQsNC3INC90LAgMjAg0LzQtdGB0Y/RhtC10LIg0LLQv9C10YDQtdC0ICovCmZvciAoJG1vbnRoID0gMTsgJG1vbnRoIDw9IDIwOyAkbW9udGggKyspIHsKIAoJJGNyZWRpdEJhbGFuY2UgPSAoICRjcmVkaXRCYWxhbmNlICogJHBlcmNlbnQgKSArICRzZXJ2aWNlUGF5bWVudDsKCSBpZiAoJGNyZWRpdEJhbGFuY2UgPCA1MDAwKSB7CiAgICAgIAkgJG1vbnRobHlQYXltZW50ID0gJGNyZWRpdEJhbGFuY2U7CgkgfQogICAgIGVsc2UgewogICAgIAkkbW9udGhseVBheW1lbnQgPSA1MDAwOwogICAgIH0gCSAKCSRwYXltZW50VG90YWwgPSAkcGF5bWVudFRvdGFsICsgJG1vbnRobHlQYXltZW50OwoJZWNobyAieyRtb250aH0g0LzQtdGB0Y/RhiDRgdC/0YPRgdGC0Y86INC00L7Qu9CzID0geyRjcmVkaXRCYWxhbmNlfSDRgNGD0LEsINCy0YvQv9C70LDRh9C10L3QviDQstGB0LXQs9C+IHskcGF5bWVudFRvdGFsfSDRgNGD0LEuIFxuIjsKIAogICAgICAvKiDQldGB0LvQuCDQsdCw0LvQsNC90YEg0L7RgtGA0LjRhtCw0YLQtdC70YzQvdGL0Lkg4oCUINGF0LLQsNGC0LjRgiDRgdGH0LjRgtCw0YLRjCAqLwogICAgIAlpZiAoJGNyZWRpdEJhbGFuY2UgPCAwKSB7CiAgICAgICAgICBlY2hvICLQoSDQvNC10L3RjyDRhdCy0LDRgtC40YIhXG4iOwogICAgICAgICAgYnJlYWs7CiAgICAgIH0KIAogCn0KCi8qLSDQv9GA0LjQsdCw0LLQu9GP0LXQvCDQv9GA0L7RhtC10L3RgtGLINC4INC60L7QvNC40YHRgdC40Y4g0Log0L7RgdGC0LDRgtC60YMg0LTQvtC70LPQsCAoIdC90LUg0LLRi9GH0LjRgtCw0LXQvCDQvdC40YfQtdCz0L4g0L/QvtC60LAhKQotINC10YHQu9C4INC+0YHRgtCw0YLQvtC6INC80LDQu9C10L3RjNC60LjQuSwg0LLRi9C/0LvQsNGH0LjQstCw0LXQvCDRgdC60L7Qu9GM0LrQviDQvtGB0YLQsNC70L7RgdGMINC4INGD0YXQvtC00LjQvAotINC40L3QsNGH0LUg0L/Qu9Cw0YLQuNC8IDUwMDAgKi8=