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.

Так?