Дано вещественное число А и целое число N (N>0). Найти А в степени N

program one;

var

 a,p : real;

 N,i : integer;

 begin

   p:= 1;

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

   readln(a);

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

   readln(N);

   for i := 1 to N do

     p := p * a;

write(p);  

 end.