Реализация циклических алгоритмов на языке Pascal