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

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

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