минимальное число членов сумма которых

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

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

[BDA]

uses
  CRT;

var
  s, p, b, q, count: integer;

begin
  writeln('Input P');
  readln(p);
  s := 0;
  b := 1;//первый член прогрессии
  q := 3;//знаменатель прогрессии
  count := 0;
  repeat
    s := s + b;
    b := b * q;
    inc(count);
  until s > p;
  writeln(count, ' numbers in sum');
  readln;
end.