Напишу код для задачи на языке Паскаль за 500 руб., исполнитель Лариса (miska1)