Запись вспомогательных алгоритмов на языке Паскаль