Вычислить: 1/(1+1/(3+1/(5+1/)))…101+1/103 — Pascal(Паскаль)

var
a:real;
n:integer;
begin
    a:=1/103;
    n:=101;
    while n>=1 do
        begin
            a:=1/(n+a);
            n:=n-2;
        end;
    writeln('A=',a:7:5);
end.