Question

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

Answer 1

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

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