пожалуйста помогите с информатикой)))
нужно написать программу для паскаля возведения числа а в степень n/

program stepen;uses crt;var a,n,i,p : integer;beginwrite('Введите число a=');readln(a);write('Введите степень числа n=');readln(n);p:=1;for i:=1 to n dop:=p*a;write('Число а в степени n = ',p)end.

program zadacha;var a,b,c : integer;beginc:=1;write('Введите число ==> ');readln(a);write('Введите его степень ==> ');readln(b);while b<>0 do beginc:=a*c;b:=b-1;end;write('степень числа ==> ',c);end.