Очень срочно пожалуйста, на Паскале, 6 номер

const
    max = 20;
var   
    i:byte;
    sum:real;
    
begin
  writeln();
  sum:=0;
  i:=1;
 
  while i<=max do begin
    sum:= sum + i / (i+1);
    i:=i+1;
  end;
  writeln('1/2+2/3+3/4+4/5+...+',max,'/',max+1,' = ', sum);
end.