Примеры циклов с постусловием for в Pascal