Возведение числа в степень - PascalABC.NET (25249)

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

program q;
var 
 y,x,z,x1: longint;
 a,b:real;
  begin
  
   writeln( 'pass x,y,z');
    readln(x,y,z);
     if x > y then A:=(6*y*sqr(x)+3*z) ; //вот тут sqr(x) возносит х в квадрат, а мне нужно что бы х и был самой степенью какую я хочу задать, как заменить ? ...
      writeln( 'A:', A:0:3);
       writeln( 'pass (2) x1,y');
      
        readln(x1,y);
         if y >= x then
          B:= exp(abs(x1-y))+x1/21 ;
           writeln( 'B:', B:0:3);
      end.

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

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

for i:=1 to x do //x-степень
a:=a*b; //b - число, которое необходимо возвести в степень, а a - ответ

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

Задается значение переменной x типа Целое.
Задается значение переменной a типа Целое равное 1.
Задается значение переменной b типа Целое.
Задается условие для цикла for от 1 до значения переменной x.
В каждой итерации цикла значение переменной a умножается на значение переменной b.
Результат сохраняется в переменной a.
После завершения цикла значение переменной a будет равно результату возведения числа в степень.