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