Решение задачи на PascalABC (листинг программы по ссылке, сейчас ее попробую передать)
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.