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

PD9waHAKCmVycm9yX3JlcG9ydGluZygtMSk7CgokY3JlZGl0QmFsYW5jZSA9IDQwMDAwOyAvKiDQlNC+0LvQsyDQkNC90L7QvdGH0LjQutCwINC/0LXRgNC10LQg0LHQsNC90LrQvtC8ICovCiRwZXJjZW50ID0gMS4wMzsgLyog0JHQsNC90Log0L3QsNGH0LjRgdC70Y/QtdGCIDMlINC+0YIg0YHRg9C80LzRiyDQsiDQvNC10YHRj9GGLCDQvNGLINGD0LzQvdC+0LbQsNC10Lwg0L3QsCAxLjAzLCDQsCDQvdC1INC90LAgMC4wMywg0YfRgtC+0LHRiyDQt9Cw0YLQtdC8INCyINC+0LTQvdC+INC00LXQudGB0YLQstC40LUg0L/QvtC70YPRh9C40YLRjCDRgdGD0LzQvNGDINC60YDQtdC00LjRgtCwINC4INC/0YDQvtGG0LXQvdGC0L7QsiAqLwokc2VydmljZVBheW1lbnQgPSAxMDAwOyAvKiDQn9C70Y7RgSAxMDAwINCyINC80LXRgdGP0YYg0LfQsCDQvtCx0YHQu9GD0LbQuNCy0LDQvdC40LUg0LrRgNC10LTQuNGC0LAgKi8KJG1vbnRobHlQYXltZW50ID0gNTAwMDsgLyog0JDQvdC+0L3Rh9C40Log0LzQvtC20LXRgiDQv9C70LDRgtC40YLRjCDRgtC+0LvRjNC60L4gNTAwMCDQsiDQvNC10YHRj9GGICovCiRwYXltZW50VG90YWwgPSAwOyAvKiDQntCx0YnQsNGPINCy0YvQv9C70LDRgtCwINCQ0L3QvtC90YfQuNC60LAgKi8KCmZvciAoJG1vbnRoID0gMTsgJG1vbnRoIDw9IDIwOyAkbW9udGggKyspIHsgLyrQntCx0YnQuNC5INGG0LjQutC7INGBINC/0L7QtNGB0YfRkdGC0L7QvCDRgNCw0YHRhdC+0LTQvtCyINCQ0L3QvtC90YfQuNC60LAqLwoJCgkkZGVidCA9ICgkY3JlZGl0QmFsYW5jZSAqICRwZXJjZW50KSArICRzZXJ2aWNlUGF5bWVudDsgLyrQlNC+0LvQsyDQkNC90L7QvdGH0LjQutCwLCDQutC+0YLQvtGA0YvQuSDQvtGC0LvQuNGH0LDQtdGC0YHRjyDQvtGCINC40LfQvdCw0YfQsNC70YzQvdC+0Lkg0YHRg9C80LzRiyAo0JrRgNC10LTQuNGC0JHQsNC70LDQvdGBKSovCgkkcGF5bWVudFRvdGFsTGFzdCA9ICRwYXltZW50VG90YWwgKyAkZGVidDsgLyrQn9C10YDQtdC80LXQvdC90LDRjyDQtNC70Y8g0L7Qv9GA0LXQtNC10LvQtdC90LjRjyDRgdGD0LzQvNGLINCy0YvQv9C70LDRgtGLINCyINGB0LvRg9GH0LDQtSwg0LrQvtCz0LTQsCDQtNC+0LvQsyDQkNC90L7QvdGH0LjQutCwINC80LXQvdGM0YjQtSDRgdGD0LzQvNGLINC10LPQviDQvNC10YHRj9GH0L3QvtC5INCy0YvQv9C70LDRgtGLKi8KCSRwYXltZW50VG90YWwgPSAkcGF5bWVudFRvdGFsICsgJG1vbnRobHlQYXltZW50OwoJJGNyZWRpdEJhbGFuY2UgPSAkZGVidCAtICRtb250aGx5UGF5bWVudDsKCglpZiAoJGRlYnQgPD0gJG1vbnRobHlQYXltZW50KSB7IC8q0JXRgdC70Lgg0LTQvtC70LMg0LzQtdC90YzRiNC1INGB0YPQvNC80Ysg0LzQtdGB0Y/Rh9C90L7QuSDQstGL0L/Qu9Cw0YLRiyDQuNC70Lgg0YDQsNCy0LXQvSDQtdC5Ki8KCQkkY3JlZGl0QmFsYW5jZSA9IDA7IAoJCSAgICBlY2hvICJ7JG1vbnRofSDQvNC10YHRj9GGINGB0L/Rg9GB0YLRjzog0LTQvtC70LMgPSB7JGNyZWRpdEJhbGFuY2V9INGA0YPQsSwg0LLRi9C/0LvQsNGH0LXQvdC+INCy0YHQtdCz0L4geyRwYXltZW50VG90YWxMYXN0fSDRgNGD0LEuXG7QlNC+0LvQsyDQv9C+0LvQvdC+0YHRgtGM0Y4g0LLRi9C/0LvQsNGH0LXQvSFcbiI7CiAgICAgICAgICAgIGJyZWFrOwogICAgfSBlbHNlIHsgLyrQldGB0LvQuCDQtNC+0LvQsyDQvtGB0YLQsNGR0YLRgdGPINCx0L7Qu9GM0YjQtSDRgdGD0LzQvNGLINC80LXRgdGP0YfQvdC+0Lkg0LLRi9C/0LvQsNGC0Ysg0JDQvdC+0L3Rh9C40LrQsCovCgkJCWVjaG8gInskbW9udGh9INC80LXRgdGP0YYg0YHQv9GD0YHRgtGPOiDQtNC+0LvQsyA9IHskY3JlZGl0QmFsYW5jZX0g0YDRg9CxLCDQstGL0L/Qu9Cw0YfQtdC90L4g0LLRgdC10LPQviB7JHBheW1lbnRUb3RhbH0g0YDRg9CxLlxuIjsKCQl9Cn0KCj8+