Решить задачу Pascal

Заказчик
[no-member:pro]Денис[/no-member:pro]
Параметры проекта
Вариант сотрудничестваОдноразовый проект
РазделОбучение и Консультации
Предоплатабез предоплат
Способы оплатыБанковский перевод
Приём заявокот 2020-04-10 до 2020-04-11
Описание проекта
Требуется решить задачу Pascal. Нужно помочь сдать экзамен по программированию 03 марта. Экзамен состоит из одной задачи. Пример во вложении. Задачки не тяжелые. Если преподаватель попросит изменить код, или решить еще одну, доплачиваю.