Дано число а. Возвести его в n-ую степень

program name; var integer: a,i,b; beginb: =1read (a,i); for i: =1 to i dob: =b*a; write (b); end. Вот и все в принципе.a — это число возведенное в степень i.b-число например 2 в сепени 3=8 (тут b=8,a=2,i=3)