contrlc

Verified answer

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.

vvvvvvvvvvvvvvvvvvvvvvv