Блок-схема алгоритма Repeat Until в Pascal