Оператор цикла с постусловием в Pascal: примеры кода