Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n. {Введем целую переменную k, (программа Паскаль)

USES Crt;
VAR
   A, N, B, K : INTEGER;
BEGIN
  ClrScr;
  Write(‘ Введите два значения   ‘);  ReadLn(A,N);
  K := 0; B := 1;
  While K <> N DO Begin
      K := K + 1;   B := B * A;
  End;
  Write(‘ A в степени N = ’,B);
END.