Ребзи, нужно составить программу на языке паскаль, которая сложит все дроби 2/3 + 4/5 + 6/7 и т.д. до 100/101

Var
  i: integer;
  s: real;
 
begin
  i := 2;
  while(i <= 100) do
  begin
    //writeln(i, '/', i + 1);
    s := s + (i / (i + 1));
    i := i + 2;
  end;
  write(s);
end.