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