напишите программы вычисления сумм ста слагаемых,имеющих вид дроби (i+1)/(i+2) (тема цикл)
Program Sum100;
Var i:integer;S:real;
begin
S:=0;
For i:=1 to 100 do S:=S+(i+1)/(i-1);
writeln(S);
end.