Вводится последовательность натуральных чисел. Признак конца ввода – 0. определить является ли последовательность геометрической прогрессией - Pascal

Формулировка задачи:

Помогите пожалуйста написать программу на языке Паскаль, без использования массива.

Решение задачи: «Вводится последовательность натуральных чисел. Признак конца ввода – 0. определить является ли последовательность геометрической прогрессией»

Листинг программы

uses crt;
var z1,z2,z3,a,b:real;
begin
clrscr;
write('Vvedite posledovatelnost: ');
read(a,b);
z2:=b/a;
repeat
read(a);
if a<>0 then
   begin
   z1:=a/b;
   b:=a;
   z3:=z1;
   end;
until (a=0) or (z3<>z2);
if z3=z2 then writeln('Posledovatelnost geometricheskaya')
else writeln('Posledovatelnost ne geometricheskaya');
readkey;
end.

Объяснение кода листинга программы

Код на языке Pascal выполняет следующие действия:

Использует модуль CRT (Console RS232 Terminal) для работы с консолью.
Объявляет переменные z1, z2, z3, a, b типа real (число с плавающей точкой).
Очищает экран с помощью функции clrscr.
Выводит сообщение «Введите последовательность: » с помощью функции write.
Считывает первое число a и сохраняет его в переменную a.
Считывает второе число b и сохраняет его в переменную b.
Вычисляет значение z2, разделив b на a.
В цикле while считывает числа a и b, пока a не станет равным нулю или пока отношение z1 к z2 не изменится.
Если a не равно нулю, то вычисляет значение z1, разделив a на b.
Сохраняет значение a в переменную b.
Сохраняет значение z1 в переменную z3.
Повторяет шаги 8-11 до тех пор, пока a не станет равным нулю или пока z3 не станет отличаться от z2.
Если z3 равно z2, то выводит сообщение «Последовательность геометрическая».
В противном случае выводит сообщение «Последовательность не геометрическая».
Считывает и обрабатывает символ клавиши с помощью функции readkey.
Конец программы.