дано число а. возвести его в n-ую степень. задача на тему "цикл с известным числом повторения!" помогите пожалуйста

program name;

var integer:a,i,b;

begin

b:=1

read(a,i);

for i:=1 to i do

b:=b*a;

write(b);

end.

вот и все в принципе.a -это число возведенное в степень i.

b-число например 2 в сепени 3=8(тут b=8,a=2,i=3)

Я бы написал по другому

Program vozvedenie_v_stepen;

var a,b:integer;

begin

writeln ('Введите число, которое будем возводить в степень');

readln (a);

writeln ('Введите число, обозначающее степень, в которую будем возводить');

readln (b);

Writeln (a,' в степени ',b,' = ',exp(b*ln(a))); 

end. 

Извиняюсь за неправильный ответ. Не увидел, что вам нужно с циклом. Тогда лучше так...

Program vozvedenie_v_stepen;var a,b,c,d:integer;beginwriteln ( 'Введите число, которое будем возводить в степень' );readln (a);c:=a;writeln ( 'Введите число, обозначающее степень, в которую будем возводить');readln (b);for d:= 2 to b doa:=a*c;if b=0 thenwriteln(1)elsewriteln (c,' в степени ',b,' = ',a);end.