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

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