Вот как выыглядит алгоритм возведения числа в степень:
program stepen;
uses crt;
var a,n,i,p : integer;
begin
write('Введите число a=');
readln(a);
write('Введите степень числа n=');
readln(n);
p:=1;
for i:=1 to n do
p:=p*a;
write('Число а в степени n = ',p)
end.
С подробным описанием:
program stepen;
uses crt;
{ Записать программу
возвед. числа а в степень n }
var a,n,i,p
: integer;
begin
write('a=');readln(a);
write('n=');readln(n);
p:=1; {Если степень равна 0 то цикл ни разу не выполнится и
выведется число р, которое мы задаем равным единице, если же укажите при
выполнении программы степень равную 1, то цикл выполнится 1 раз и число а
перемножится на р=1 после чего естественно получим само число а, что так же
является правильным результатом}
for i:=1 to n do
p:=p*a; {В цикле на
каждом кругу в переменную р, которую мы будем выводить в качестве конечного
результата, заносится новое значение числа а , возведенного в степень равную
значению счетчика т.е. при i=1 р=а*1; при i=2 р=а*1*a (т.е. а в квадрате); при
i=1 р=а*1*a*а (т.е. а в кубе); }
write('Число а в степени n = ',p){Выводим результат};
readln;
end.
| 
