Пример кода на языке PascalABC.NET для создания геометрической прогрессии:

program GeometricProgression;
var
a, r: real;
n, i: integer;
begin
writeln('Введите первый элемент прогрессии (a): ');
readln(a);
writeln('Введите знаменатель прогрессии (r): ');
readln(r);
writeln('Введите количество элементов (n): ');
readln(n);
writeln('Геометрическая прогрессия:');
for i := 0 to n-1 do
begin
write(a * power(r, i):0:2, ' ');
end;
end.

Этот код запрашивает у пользователя первый элемент прогрессии (a), знаменатель прогрессии (r) и количество элементов (n) и затем выводит геометрическую прогрессию на экран.