Помогите с решением в ABC паскаль, пожалуйста

1. var n,i:integer; s:real; begin write('n='); readln(n); s:=0; for i:=1 to n do s:=s+i/(i+1); writeln('s=',s); end. Пример: n=5 s=3.55 2. var n,i:integer; s:real; begin write('n='); readln(n); s:=0; for i:=n downto 1 do s:=sqrt(3*i+s); writeln('s=',s); end. Пример: n=4 s=2.46721366157235