Выяснить, является ли число x элементом геометрической прогрессии, с первым элементом b и знаменателем q > 0 - Pascal ABC

var
   b, q, x : real;
   
begin
   Write('x = ');
   Readln(x);
   Write('b = ');
   Readln(b);
   Write('q = ');
   Readln(q);
   if q > 1 then begin {при возрастающей последовательности}
      Repeat
         b := b * q;
      until(x <= b);
   end;
   if q < 1 then begin {при убывающей последовательности}
      Repeat
         b := b * q;
      until(x >= b);
   end;
   if b = x then Writeln('Yes')
      else Writeln('No');
end.