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

спасибо большое С:

Пожалуйста

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