Примеры использования оператора цикла с предусловием в Паскале