var
i, t, n, p: integer;
f: boolean;//Задаем логический тип данных
begin
f := false;
t := 1;
n := 1;
i := 0;
WriteLn('Введите последовательность чисел. Конец ввода - число -1:');
repeat
i := i + 1;
ReadLn(n);
if (f = false) and (t mod 2 = 0) and (n mod 2 = 0) then
begin
f := true;
p := i
end;
t := n
until n = -1;//Пока последнее число не будет равно -1
if f then
WriteLn('Порядковые номера первых двух соседних четных чисел: ', p - 1, ' и ', p)
else
WriteLn('Нет двух соседних четных чисел');
end.