Возведение в степень - Pascal (80428)

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

Обьясните пожалуйста как возводить в n,n-1,n-2 и тд. степени

Решение задачи: «Возведение в степень»

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

var
i, x, a, m, r : integer;
begin
     a := 2;
     x := 2;
     m := 3;
     r := x;
     for i:=0 to m * x do begin
           r := r * a;
     end;
     writeln(r);
end.

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

Объявление переменных: i, x, a, m, r типа integer.
Присвоение значения переменной a: 2.
Присвоение значения переменной x: 2.
Присвоение значения переменной m: 3.
Присвоение значения переменной r: значение переменной x, то есть 2.
Цикл от 0 до m * x (в данном случае от 0 до 6) включительно.
В теле цикла переменная r умножается на значение переменной a и результат сохраняется в переменной r.
Вывод значения переменной r на экран.
Конец программы.