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