Напишите программу которая вводит натуральные числа 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.