Дано действительное число х не пользуясь никакими иными арифметическими операциями не считая

Program vozvvstep; //Название программы
var
i,x,n,znach: longint; //Творенье переменных целочисленного типа
begin
  i:=1;  // Задаём значение счётчику
  readln(x); // получаем от пользователя значение числа, которое необходимо возвести
  readln(n); // получаем от юзера степень
  znach :=1;
  while i lt;= n do // создаём цикл от 1 до значения ступени
  begin
    znach:=znach*x; // возводим число x в ступень с храним в переменной znach
    i:=i+1; // Увеличиваем счётчик
  end;
  println(znach); // Выводим значение
end.