{ Записать программу возвед. числа а в степень n }

var a,n,i,p : integer;
 begin
  clrscr;
  write('n=');readln(n);
  write('a=');readln(a);
  p:=1;
  for i:=1 to n do p:=p*a;
  write('p=',p);
  readln;
 end.