Дано вещественное число A и целое число N (>0). Используя один цикл, вывести все целые степени числа A от 1 до N - Pascal ABC

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

Дано вещественное число A и целое число N (>0). Используя один цикл, вывести все целые степени числа A от 1 до N.

Решение задачи: «Дано вещественное число A и целое число N (>0). Используя один цикл, вывести все целые степени числа A от 1 до N»

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

var
  a, an, n, i: integer;
 
begin
  readln(a, n);
  an := 1;
  for i := 1 to n do
    begin
      an := an * a;
      writeln(i, ' ', an)
    end
end.

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

В начале объявляются переменные a, an, n, i типа integer (целое число).
Затем с помощью функции readln() в переменную a считывается вещественное число, а в переменную n - целое число больше 0.
Переменная an инициализируется значением 1.
Далее с помощью цикла for от 1 до n происходит перебор целых степеней числа a.
Внутри цикла значение переменной an умножается на a, т.е. увеличивается на единицу.
Затем выводится на экран значение переменной an с помощью функции writeln().
Выводится значение переменной i (текущая степень) и пробел.
После окончания цикла выводится значение переменной an.