Определить, является ли последовательность геометрической прогрессией

var
  a, b, q: integer; {предыдущий и текущий члены, соотношение членов}
  d, p: boolean; {факты неубывания и наличия прогрессии}
begin
  writeln('Введите последовательность натуральных чисел, оканчивающуюся нулём:'); {можно убрать}
  read(a, b); {любая прогрессия содержит не менее двух членов, читаем первые два члена}
  d := a <= b; {вычисляем факт неубывания прогрессии}
  if d {в зависимости от факта неубывания прогрессии, вычисляем соотношение членов прогрессии}
    then q := b div a {число, равное знаменателю неубывающей геометрической прогрессии}
    else q := a div b; {число, обратное знаменателю убывающей геометрической прогрессии}
  p := (a mod b) * (b mod a) = 0; {вычисляем факт того, что первые два члена являются геометрической прогрессией}
  while b > 0 do {определяем, является ли последовательность прогрессией, и читаем следующий член}
    begin
      if d {в зависимости от факта неубывания, вычисляем факт того, что последовательность является прогрессией}
        then p := p and (b div a = q) and (b mod q = 0) {если неубывающая}
        else p := p and (a div b = q) and (a mod q = 0); {если убывающая}
      a := b; {сохраняем последний член}
      read(b) {читаем следующий}
    end;
  readln; {эту строку можно убрать, нужна для совместимости с другими диалектами паскаля}
  if p then writeln('Yes') else writeln('No'); {печатаем результат}
  readln {эту строку можно убрать, нужна для совместимости с другими диалектами паскаля}
end.