Паскаль. вычислить сумму трех членов прогрессии 1, 1+1/2, 1+1/3, 1+1/4... которые меньше заданного числа В где 1<В<2

прогрессия неправильная, т.к. первый элемент должен быть 1+1/1 = 2var b,sum:real; count, n:integer;beginreadln(b);count:=0;n:=1;while count<>3 do begin  if (1+1/n)<b then begin       sum:=sum+(1+1/n);       count:=count+1;  end;  n:=n+1;end;writeln('suma: ',sum);end.