Составить программу, вычисляющую сумму членов геометрической прогрессии до тех пор, пока сумма не превысит заданное число Х. b1=1,q=2,bn=b(n-1)*q (n и n-1 это индексы) — Pascal(Паскаль)

VAR
 bi, q, sum, count: Longint;
 X: Longint;
BEGIN
 WriteLn('Введите значение предельного числа X: '); ReadLn(X);
 if X < 2 then begin
  WriteLn('Неверный ввод  X (',X,') работа программы невозможна');
  Halt(1);
 end;
 sum  := 0;
 count:= 0;
 bi   := 1;
 q    := 2;
 while sum < X do
 begin
   inc(count);
   sum := sum + bi;
   bi  := bi * q;
 end;
 WriteLn('Сумма:  ',sum,', количество членов: ', count);
 WriteLn('Сумма по формуле ',(1 - (bi)) / (1 - q):8:0)
END.