Дано целое число а и натуральное число 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.