Составьте рекуррентную формулу, используя которую для заданных с клавиатуры значений p,n,a и вычислить значение Y Y=(((((a-p)*n-p)*n-p)*n-p)*n-p)*n-p -Pascal(Паскаль)

uses crt;
var a,p,y:real;
    n,i:integer;
begin
clrscr;
write('Количество итераций n=');
readln(n);
writeln('Введите 2 числа:');
readln(a,p);
y:=(a-p)*n;
for i:=n-1 downto 1 do
y:=y*n-p;
write('Y=',y:0:4);
readln
end.