<?php
 
error_reporting(-1);
 
$creditBalance = 40000;
$percent = 1.03;
$servicePayment = 1000;
$monthlyPayment = 5000;
$paymentTotal = 0;
 
for ($month = 1; $month <= 25; $month ++) {
 
/*
1. Имеем сумму кредита.
2. Прибавляем к ней нужный процент и прибавляем комиссию за обслуживание кредита. */
 
	$creditBalance = $creditBalance + ($creditBalance / 100 * $percent) + $servicePayment - $monthlyPayment;
	$paymentTotal = $paymentTotal + $monthlyPayment;
 
	echo "Месяц {$month} \n Баланс кредита 	{$creditBalance} \n Всего выплачено 	{$paymentTotal}\n\n";
 
/*
3. Проверяем, получившаяся сумма больше или меньше 5000, которые может выплачивать Анончик в месяц.
4. В соответствии с результатом проверки или продолжаем цикл выплат, 
или выплачиваем имеющуюся сумму и обрываем цикл 
(не забывай про пункт 1, что она у нас уже должна быть умножена на процент 
и к ней уже должна быть прибавлена комиссия за обслуживание кредита).*/
 
if ($creditBalance < $monthlyPayment) {
	$monthlyPayment = $monthlyPayment - ($monthlyPayment - $creditBalance);
	$creditBalance = $creditBalance - $monthlyPayment;
	$paymentTotal = $paymentTotal + $monthlyPayment;
	break;
}
}
	?>

PD9waHAKIAplcnJvcl9yZXBvcnRpbmcoLTEpOwogCiRjcmVkaXRCYWxhbmNlID0gNDAwMDA7CiRwZXJjZW50ID0gMS4wMzsKJHNlcnZpY2VQYXltZW50ID0gMTAwMDsKJG1vbnRobHlQYXltZW50ID0gNTAwMDsKJHBheW1lbnRUb3RhbCA9IDA7Cgpmb3IgKCRtb250aCA9IDE7ICRtb250aCA8PSAyNTsgJG1vbnRoICsrKSB7CgkKLyoKMS4g0JjQvNC10LXQvCDRgdGD0LzQvNGDINC60YDQtdC00LjRgtCwLgoyLiDQn9GA0LjQsdCw0LLQu9GP0LXQvCDQuiDQvdC10Lkg0L3Rg9C20L3Ri9C5INC/0YDQvtGG0LXQvdGCINC4INC/0YDQuNCx0LDQstC70Y/QtdC8INC60L7QvNC40YHRgdC40Y4g0LfQsCDQvtCx0YHQu9GD0LbQuNCy0LDQvdC40LUg0LrRgNC10LTQuNGC0LAuICovCgoJJGNyZWRpdEJhbGFuY2UgPSAkY3JlZGl0QmFsYW5jZSArICgkY3JlZGl0QmFsYW5jZSAvIDEwMCAqICRwZXJjZW50KSArICRzZXJ2aWNlUGF5bWVudCAtICRtb250aGx5UGF5bWVudDsKCSRwYXltZW50VG90YWwgPSAkcGF5bWVudFRvdGFsICsgJG1vbnRobHlQYXltZW50OwoKCWVjaG8gItCc0LXRgdGP0YYgeyRtb250aH0gXG4g0JHQsNC70LDQvdGBINC60YDQtdC00LjRgtCwIAl7JGNyZWRpdEJhbGFuY2V9IFxuINCS0YHQtdCz0L4g0LLRi9C/0LvQsNGH0LXQvdC+IAl7JHBheW1lbnRUb3RhbH1cblxuIjsKCi8qCjMuINCf0YDQvtCy0LXRgNGP0LXQvCwg0L/QvtC70YPRh9C40LLRiNCw0Y/RgdGPINGB0YPQvNC80LAg0LHQvtC70YzRiNC1INC40LvQuCDQvNC10L3RjNGI0LUgNTAwMCwg0LrQvtGC0L7RgNGL0LUg0LzQvtC20LXRgiDQstGL0L/Qu9Cw0YfQuNCy0LDRgtGMINCQ0L3QvtC90YfQuNC6INCyINC80LXRgdGP0YYuCjQuINCSINGB0L7QvtGC0LLQtdGC0YHRgtCy0LjQuCDRgSDRgNC10LfRg9C70YzRgtCw0YLQvtC8INC/0YDQvtCy0LXRgNC60Lgg0LjQu9C4INC/0YDQvtC00L7Qu9C20LDQtdC8INGG0LjQutC7INCy0YvQv9C70LDRgiwgCtC40LvQuCDQstGL0L/Qu9Cw0YfQuNCy0LDQtdC8INC40LzQtdGO0YnRg9GO0YHRjyDRgdGD0LzQvNGDINC4INC+0LHRgNGL0LLQsNC10Lwg0YbQuNC60LsgCijQvdC1INC30LDQsdGL0LLQsNC5INC/0YDQviDQv9GD0L3QutGCIDEsINGH0YLQviDQvtC90LAg0YMg0L3QsNGBINGD0LbQtSDQtNC+0LvQttC90LAg0LHRi9GC0Ywg0YPQvNC90L7QttC10L3QsCDQvdCwINC/0YDQvtGG0LXQvdGCIArQuCDQuiDQvdC10Lkg0YPQttC1INC00L7Qu9C20L3QsCDQsdGL0YLRjCDQv9GA0LjQsdCw0LLQu9C10L3QsCDQutC+0LzQuNGB0YHQuNGPINC30LAg0L7QsdGB0LvRg9C20LjQstCw0L3QuNC1INC60YDQtdC00LjRgtCwKS4qLwoKaWYgKCRjcmVkaXRCYWxhbmNlIDwgJG1vbnRobHlQYXltZW50KSB7CgkkbW9udGhseVBheW1lbnQgPSAkbW9udGhseVBheW1lbnQgLSAoJG1vbnRobHlQYXltZW50IC0gJGNyZWRpdEJhbGFuY2UpOwoJJGNyZWRpdEJhbGFuY2UgPSAkY3JlZGl0QmFsYW5jZSAtICRtb250aGx5UGF5bWVudDsKCSRwYXltZW50VG90YWwgPSAkcGF5bWVudFRvdGFsICsgJG1vbnRobHlQYXltZW50OwoJYnJlYWs7Cn0KfQoJPz4=