Паскаль вводится последовательность из n целых чисел. определить, содержит ли последовательность хотя бы два равных соседних числа (a_i=a_(i+1)) (без массива)

Var a,i,x1,x2,s: integer; begin s: =0; x1: =0; a: =1; while (a< > 0) do begin writeln('vvodite   elementi stroki , po   okonchanii   vvedi 0 ')  ;   readln(a); x2: =x1; x1: =a; if   (x2=x1)   then  s: =1; end; if (s=1)   then writeln('sushestvyet') else writeln('ne   sushestvyet'); end.

Прочитав текст, можно легко понять, что проще всего "зацепиться" за его фрагмент " я учился на 12 и 11". кроме того, нигде не встречается цифр, больших двойки, следовательно основание системы р может быть 3 и более.допустим, что система оценок была . пусть p=3, тогда 12(3)=3+2=5, 11(3)=4 и это похоже на реальные числа. при р=4 получаем 12(4)=6 и это уже нарушает наше допущение о системе. но посмотрим, что даст предположение р=3. 12(3) лет - это 5. 122 года - это 3²+2×3+2 = 17 лет - нормальный возраст для поступления в вуз. 21(3) год - это 3×2+1 = 7 лет - вполне допустимый срок для начала преподавания. 220(3) лет = 2×3²+2×3 = 24 года - путешествие было не 10011(3) лет = 3⁴+3+1 = 85 лет - вполне почтенный возраст.

      численность           население через год   1   40000                             42000   2   42000                             44100   3   44100                             46305 переменная 1 = 3 переменная 2 =  46305