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

Программа рабочая,все проверено.