Возвести целое число n в nнную степень. Напишите программу

var xn,x,n,i:integer; begin write('Введите число '); readln(xn); write('Введите степень числа '); readln(n); x:=xn; for  i:=1 to n-1 do begin x:=x*xn; end; writeln(x); end.