Дано целое число а и натуральное число n. найдите a^n. программу напишите в паскале через while или repeat.

Program Program1;
var a, n, i, result: integer;
begin
result := 1;
write('Введите значение A: ');
readln(a);
write('Введите значение N: ');
readln(n);
while (n > i) do
begin
result := result * a;
i := i + 1;
end;
writeln('ответ: ', result);
end.