Примеры использования цикла while в Pascal