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