Программа решения задачи на языке паскаль