Вычислить значение дроби - Pascal ABC

Формулировка задачи:

Необходимо вычислить значение дроби

program z4;
uses crt;
const n=4;
var sa,s,a,t:real;
i:integer;
BEGIN
clrscr;
{write('введите n  ');
read(n);}
write('введите а  ');
readln(a);
writeln;
sa:=a;
s:=n+2;
for i:=n downto 1 do
begin
s:=i+1+(power(a,i)/s);
end;
s:=1/s;
writeln(s);
t:=1/(2+a/(3+power(a,2)/(4+power(a,3)/(5+power(a,4)/6))));
write(t);
END.

Решение задачи: «Вычислить значение дроби»

textual
                            Листинг программы 
                        

                            var n,i:integer;
    a,s:real;
begin
write('введите n=');
readln(n);
write('введите а=');
readln(a);
s:=power(a,n)/(n+2)+n+1;
for i:=n-1 downto 1 do
s:=power(a,i)/s+i+1;
s:=1/s;
writeln(s:0:4);
end.
                        