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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.