Найти член геометрической прогрессии - Pascal ABC

Формулировка задачи:

См. вл.

Решение задачи: «Найти член геометрической прогрессии»

Листинг программы

var
  b, q, q2, bn : real;
  i, n : integer;
 
begin
  q2 := 1;
  readln (b, q, n);
  
  for i := 1 to n - 1 do
  begin
    q2 := q2 * q;
  end;
  bn := b * q2;
  writeln(n, ' член геометрической прогрессии равен: ', bn);
end.

Объяснение кода листинга программы

Переменные объявлены: b, q, q2, bn - real, i, n - integer.
Значение переменной q2 установлено равным 1.
Считываются значения переменных b, q, n с помощью функции readln.
Запускается цикл for, который выполняется n-1 раз, где n - значение переменной n.
Внутри цикла значение переменной q2 умножается на q.
Результат каждого шага цикла сохраняется в переменной bn.
После завершения цикла значение переменной bn выводится на экран.
Конец программы.