Даны натуральные числа a и n .вычислить a*(a+1)**(a+n-1)

Var
   A,N:integer;
   P:real;
Begin
Write('A = ');
ReadLn(A);
Write('N = ');
ReadLn(N);
P:=1;
For N:= 0 to N-1 do
    P:=P*(A+N);
WriteLn('P = ',P)
End.