Написать цикл с предусловием. Вычислить А в степени N.

var
  b: byte;
  a: integer;
  c: longint := 1;

begin
  readln(a, b);
  repeat
    c *= a;
    b -= 1;
  until b = 0;
  writeln(c);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.