Дано действительное число a и натуральное число n. Используя методику решения задач с рекуррентными последовательностями, вычислить: 1+1/a*a+…+1/a*a*n — Pascal(Паскаль)

program REK2;
uses crt;
var n,i,j:integer;
a,s,p,k,t:real;
begin
clrscr;
write('a=');
readln(a);
write('n=');
readln(n);
s:=0;
for i:=1 to n do
begin
p:=1;
t:=1;
for j:=1 to i do
begin
p:=a*a*n;
t:=(1/p);
s:=s+(1+t);
end;
end;
write('s=',s :5:5);
writeln;
writeln('p=',p:5:5);
writeln;
writeln('t=',t :5:5);
readln
end.