Дано целое число x и натуральное n. составьте алгоритм вычисления x в n степени. проверте алгоритм трассировкой. напишите программу на паскале. только через while do самую простую программу, сложную не принимают

Var
  i,n,x:integer;
  p:longint;
 
begin
  Writeln('Введите x и n: '); Read(x,n);
  p:=1; i:=0;
  while i<n do begin
    p:=p*x;
    i:=i+1
    end;
  Writeln(x,'^',n,' = ',p)
end.

Примеры
Введите x и n:
15 3
15^3 = 3375

Введите x и n:
2 10
2^10 = 1024

Введите x и n:
18 5
18^5 = 1889568

-9 7
-9^7 = -4782969

Трассировка:
Введите x и n:
2 6
i=0 p=1
p=2 i=1
p=4 i=2
p=8 i=3
p=16 i=4
p=32 i=5
p=64 i=6
2^6 = 64