Составить программу решения в паскаль авс. дано вещественное число а и целое числоn( больше 0).найти а в степени n= а*а**а ( числа а перемножаются n раз)

Program pps;
var a,rezult:real;   
n,i:integer;
begin
writeln('a='); readln(a);
writeln('n='); readln(n);
rezult:=1;
for i:=1 to n do
rezult:=rezult*a;
writeln('rezult=',rezult);
end.