Сумма ста слогаемых в виде дроби

[Lis From Russian]

На самом деле задание детское:
Напишите программу нахождения суммы ста слагаемых, имеющих вид дроби (i + 1) / (i + 2);

Думаю, знающему человеку - это дело двух минут.
Заранее спасибо!

[filvika]

var
    i: integer;
    sum: real;
begin
    sum := 0;
        for i := 1 to 100 do
            sum := sum + ((i+1)/(i+2));

    writeln('Сумма первых 100 слагаемых = ', sum:0:8);
    readln;
end.

[Shift_sk]

var i:integer; s:real; 
begin
s:=0;
for i:=1 to 100 do
s:=s+((i+1)/(i+2));
writeln(s);
end.

[Shift_sk]

опоздал!((((

[mss]

"Знающие негры" соревнуются - кто быстрее подсуетится и угодит "незнающему хозяину")