Как решить эту задачу в Паскаль.