Написать программку возведения числа в степень на уровне 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.