Дано число а (1 < а ≤1,5). Среди чисел 1+1/2, 1+1/3, ... найти первое, меньшее а с++

#include <iostream>

#include <cmath>

using namespace std;

signed main() {

   double one = 1.0;

   double a;

   cin >> a;

   int l = 2, r = 10000;

   while(l <= r){

       int m = (l+r)/2;

       if(one + one/m < a) r = m - 1;

       else l = m + 1;

   }

   cout << one + one/l;

}

составим двоичную матрицу:

                        молоко       лимонад         квас                   вода

бутылка               0                   1                 0                     0

стакан                 0                   0                 0                     1

кувшин                 1                   0                 0                     0        

банка                   0                   0                 1                     0

в кувшине - молоко

в бутылке - лимонад

в банке - квас

в стакане - вода

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно