Видеоурок Задача: Найти число в степени n

Текст решения задачи по программированию на PascalABC с комментариями. Что бы посмотреть объяснение этого решения нажмите смотреть видеоурок.

program stepen;
uses crt;
{ Записать программу возвед. числа, а в степень n }
var a, n, i, p: integer;
begin
write ('n=');readln (n); {Просим ввести степень числа и считываем её}
write ('a=');readln (a); {Просим ввести само число и считываем его}
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.