Пожалуйста, помогите написать программу на языке Pascal для вычисления n-ой степени заданного числа!

var n, a, b, c: integer;beginread(a,n);b:=1;for b:= 1 to n dobeginb:=b*a;end;Writeln(b);End.

var  a, i, n, p: integer;  begin  P := 1;  writeln('введите число: ');  readln(a);  writeln('введите степень числа: ');  readln(n);  for i := 1 to n do  begin    P := P * a;  end;  writeln('ваше число: ', p);end.