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

Прогрессия неправильная, т.к. первый элемент должен быть 1+1/1 = 2

var b,sum:real; count, n:integer;
begin
readln(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.

Целая часть от деления:
37 div 2 = 18
18 div 2 = 9
9 div 2 = 4
4 div 2 = 2
2 div 2 = 1
1 div 2 = 0

Остаток от деления:
37 mod 2 = 1
18 mod 2 = 0
9 mod 2 = 1
4 mod 2 = 0
2 mod 2 = 0
1 mod 2 = 0

1) Остаток от деления 37 на  записываем в обратном порядке. Получаем число в 2-ой системе счисления: 100101
37 = 100101(2)

2) Для перевода дробной части числа последовательно умножаем дробную часть на основание 2. В результате каждый раз записываем целую часть произведения.
0.375*2 = 0.75 (целая часть 0)
0.75*2 = 1.5 (целая часть 1)
0.5*2 = 1 (целая часть 1)
0*2 = 0 (целая часть 0)
Получаем число в 2-ой системе счисления: 0110
0.375 = 0110(2)

В итоге получаем число: 100101.0110(2)

# Python 3.X

'''
В небоскрёбе n этажей и 1 подъезд,
на каждом этаже по 3 квартиры,
лифт останавливается только
на нечётных этажах. Человек садится
в лифт и нажимает номер нужной
ему квартиры. На какой этаж
дома довезёт лифт человека?
'''

n = int(input('n = '))
ap_to = int(input('Номер квартиры: '))
rem_floor = 1 if ap_to % 3 > 0 else 0
floor_ap_to = ap_to // 3 + rem_floor
if floor_ap_to > n:
    raise ValueError('Такой квартиры нет!')
elif floor_ap_to % 2 == 0:
    print('Лифт довезёт человека либо на {} этаж (придётся подняться на 1 этаж по лестнице,'.format(floor_ap_to -1))
    print('либо на {} этаж, и на 1 этаж придётся спуститься.'.format(floor_ap_to + 1))
else:
    print('Лифт довезёт человека на нужный этаж.')