Присваеваеш максимум к каждому числу при определенных условиях
это !!!своеобразный метод!!!
Ответ: во вложении во вложении
Файл во вложении. Если я правильно поняла, то каждый день просрочки начисляется пени. Если книга была больше 30 дней
Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.