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

var  b: byte;  a: integer;  c: longint := 1;begin  readln(a, b);  repeat    c *= a;    b -= 1;  until b = 0;  writeln(c);end.