Напишите программу которая вводит натуральные числа a и n и вычисляет a^n без использования операции возведения в степень.

Var a, n, i: integer;
  r: longint;
 begin
  r := 1;
  readln(a, n);
  for i := 1 to n do
  r := r * a;
  write(r);
end.