Составьте на паскале программу возведения в n-ую степень целого числа x.

Var
  x,y,n,i:integer;
begin
write('Введите X,N: ');
readln(x,n);
y:=1;
for i:=1 to n do y:=y*x;
writeln('X^N=',y);
end.