Составить программу на Turbo paskal:
Вычислить a в степени n (n>0),где а-вещественное число,которое необходимо возвести в целую положительную степень n.

var a:real;i,n,p:integer;Beginwrite('n = ');readln(n);write('a = ');readln(a);p:=1;for i:=1 to n dop:=p*a;writeln('a^n = ',p:8:3);readlnEnd.