Как создать в PascalABC.NET геометрическую прогрессию,нужен код