Question

Дана последовательность целых чисел, оканчивающаяся числом
−1. Необходимо определить, присутствует ли в последовательности хотя бы одна пара одинаковых «соседних» чисел. Число
−1 членом последовательности не является.

Например:

1
2
3
4
5
-1
NO

Answer 1

var a1, a2: integer;    f: boolean;begin  f := false;  a1 := -1;  writeln('Введите члены последовательности, -1 для окончания ввода:');  repeat    write('? ');    readln(a2);    if a1 <> - 1 then f := f or (a1 = a2);    a1 := a2  until a2 = -1;  if f    then write('YES')    else write('NO');  readlnend.

Так?