На Паскале написать программу, которая вводит числа А и N и вычисляет А^N

Var
A,P:real;
N:integer;
Begin
Write('A(вещественное число) = ');
ReadLn(A);
Write('N(целое число) = ');
ReadLn(N);
P:=1;
For N:= 1 to N do
    P:=P*A;
WriteLn(A,'^',N,' = ',P);
End.