прогрессии геометрические помоогиитеее

[АнюточкаАА]

Определить минимальное число членов геометрической прогрессии, сумма которых превышает заданное число Р. Паскаль
Такая вот задачка, помогите. пожалуйста хоть чем нибудь

[GreenWizard]

var
  b1, q, P, BN: Double;
  n: Integer;
begin
  Write('b1 = ');
  Readln(b1);
  Write('q = ');
  Readln(q);
  Write('P = ');
  Readln(P);

  BN := b1;
  n := 1;
  while BN < P do
    begin
      BN := BN * q;
      n := n + 1;
    end;

  Writeln('Otvet: ', n);
  Readln;
end.

параметры прогрессии не знал, поэтому сделал ввод их