uses crt;

var

a,b:INTEGER;

w,r,t:REAL;

begin

    a:=2;

    b:=3;

  while w <=10/11 do

    begin

    w:=a/b;

    a:=a+1;

    b:=b+1;

    r:=a/b;

    t:= w+r;

    end;

  writeln ('Результат вычислений :');  

  writeln;

  writeln ('Сумма выражения = ',t);

end.

попробуй это