http://skysmart.ru/articles/programming/operator-cikla-repeat-until-v-pascal