<?php
 
error_reporting (-1);
 
$creditBalance = 40000; #Сумма кредита.
$percent = 1.03; #Процент (от остатка долга) за использование кредита.
$monthlyPayment = 5000; #Максмальная сумма, которую может платить школьник чтобы быстрее погасить кредит
$servicePayment = 1000; #Комиссия начисляемая при положительном остатке кредита.
$paymentTotal = 0; #Всего выплачено.
 
for ($month = 1; $creditBalance > 0; $month++){ #зачем нам 20 месяцев? пусть лучше цикл останавливается когда мы выплатим кредит.
 
if (($creditBalance+$percent + $servicePayment) <= $monthlyPayment){ #если остаток долга + проценты и комиссия меньше чем 5000
    $monthlyPayment = ($creditBalance*$percent + $servicePayment); # то платим то, что должны (процент от остатка и 1000 комиссии а не 5000.
    }
 
	$creditBalance = ($creditBalance * $percent + $servicePayment) - $monthlyPayment; #Начисление процентов и комиссии, оплата 5000
	$paymentTotal = $paymentTotal + $monthlyPayment; #всего выплачено
 
	echo "{$month} месяц. Долг {$creditBalance} Всего выплачено {$paymentTotal} \n";
 
}
$difference = $paymentTotal - 40000;
echo "Айфон обошелся школьнику в {$paymentTotal} \n";
echo "Школьник переплатил $difference рублей";

PD9waHAKCmVycm9yX3JlcG9ydGluZyAoLTEpOwogCiRjcmVkaXRCYWxhbmNlID0gNDAwMDA7ICPQodGD0LzQvNCwINC60YDQtdC00LjRgtCwLgokcGVyY2VudCA9IDEuMDM7ICPQn9GA0L7RhtC10L3RgiAo0L7RgiDQvtGB0YLQsNGC0LrQsCDQtNC+0LvQs9CwKSDQt9CwINC40YHQv9C+0LvRjNC30L7QstCw0L3QuNC1INC60YDQtdC00LjRgtCwLgokbW9udGhseVBheW1lbnQgPSA1MDAwOyAj0JzQsNC60YHQvNCw0LvRjNC90LDRjyDRgdGD0LzQvNCwLCDQutC+0YLQvtGA0YPRjiDQvNC+0LbQtdGCINC/0LvQsNGC0LjRgtGMINGI0LrQvtC70YzQvdC40Log0YfRgtC+0LHRiyDQsdGL0YHRgtGA0LXQtSDQv9C+0LPQsNGB0LjRgtGMINC60YDQtdC00LjRggokc2VydmljZVBheW1lbnQgPSAxMDAwOyAj0JrQvtC80LjRgdGB0LjRjyDQvdCw0YfQuNGB0LvRj9C10LzQsNGPINC/0YDQuCDQv9C+0LvQvtC20LjRgtC10LvRjNC90L7QvCDQvtGB0YLQsNGC0LrQtSDQutGA0LXQtNC40YLQsC4KJHBheW1lbnRUb3RhbCA9IDA7ICPQktGB0LXQs9C+INCy0YvQv9C70LDRh9C10L3Qvi4KIApmb3IgKCRtb250aCA9IDE7ICRjcmVkaXRCYWxhbmNlID4gMDsgJG1vbnRoKyspeyAj0LfQsNGH0LXQvCDQvdCw0LwgMjAg0LzQtdGB0Y/RhtC10LI/INC/0YPRgdGC0Ywg0LvRg9GH0YjQtSDRhtC40LrQuyDQvtGB0YLQsNC90LDQstC70LjQstCw0LXRgtGB0Y8g0LrQvtCz0LTQsCDQvNGLINCy0YvQv9C70LDRgtC40Lwg0LrRgNC10LTQuNGCLgogCmlmICgoJGNyZWRpdEJhbGFuY2UrJHBlcmNlbnQgKyAkc2VydmljZVBheW1lbnQpIDw9ICRtb250aGx5UGF5bWVudCl7ICPQtdGB0LvQuCDQvtGB0YLQsNGC0L7QuiDQtNC+0LvQs9CwICsg0L/RgNC+0YbQtdC90YLRiyDQuCDQutC+0LzQuNGB0YHQuNGPINC80LXQvdGM0YjQtSDRh9C10LwgNTAwMAogICAgJG1vbnRobHlQYXltZW50ID0gKCRjcmVkaXRCYWxhbmNlKiRwZXJjZW50ICsgJHNlcnZpY2VQYXltZW50KTsgIyDRgtC+INC/0LvQsNGC0LjQvCDRgtC+LCDRh9GC0L4g0LTQvtC70LbQvdGLICjQv9GA0L7RhtC10L3RgiDQvtGCINC+0YHRgtCw0YLQutCwINC4IDEwMDAg0LrQvtC80LjRgdGB0LjQuCDQsCDQvdC1IDUwMDAuCiAgICB9CiAKCSRjcmVkaXRCYWxhbmNlID0gKCRjcmVkaXRCYWxhbmNlICogJHBlcmNlbnQgKyAkc2VydmljZVBheW1lbnQpIC0gJG1vbnRobHlQYXltZW50OyAj0J3QsNGH0LjRgdC70LXQvdC40LUg0L/RgNC+0YbQtdC90YLQvtCyINC4INC60L7QvNC40YHRgdC40LgsINC+0L/Qu9Cw0YLQsCA1MDAwCgkkcGF5bWVudFRvdGFsID0gJHBheW1lbnRUb3RhbCArICRtb250aGx5UGF5bWVudDsgI9Cy0YHQtdCz0L4g0LLRi9C/0LvQsNGH0LXQvdC+CiAKCWVjaG8gInskbW9udGh9INC80LXRgdGP0YYuINCU0L7Qu9CzIHskY3JlZGl0QmFsYW5jZX0g0JLRgdC10LPQviDQstGL0L/Qu9Cw0YfQtdC90L4geyRwYXltZW50VG90YWx9IFxuIjsKIAp9CiRkaWZmZXJlbmNlID0gJHBheW1lbnRUb3RhbCAtIDQwMDAwOwplY2hvICLQkNC50YTQvtC9INC+0LHQvtGI0LXQu9GB0Y8g0YjQutC+0LvRjNC90LjQutGDINCyIHskcGF5bWVudFRvdGFsfSBcbiI7CmVjaG8gItCo0LrQvtC70YzQvdC40Log0L/QtdGA0LXQv9C70LDRgtC40LsgJGRpZmZlcmVuY2Ug0YDRg9Cx0LvQtdC5Ijs=