Написать программу возведения числа в степень на уровне 9 кл

program zz1;

var a, b, c, i:integer; / / задаем переменные целого типа

begin

write (' введите число '); / / вводим с клавиатуры первое число

read (a);

write (' введите в какую степень будем возводить число '); / / вводим с клавиатуры второе число

read (b);

c:=1; / / задаем начальное значение для ответа

for i:=1 to b do / / организуем цикл на b повторений

c:=c * a; / / заменяем возведение в степень умножением, b раз умножаем число а на ответ

writeln (' заданное число ', a, ' в степени ', b, ' = ', c); / / выводим ответ

end.