В последовательности найти позицию лишнего числа, не совпадающего с остальными по четности

var 
  n,i,x:integer;
Begin
  Readln(n);
  For I:=1 to n do
    Begin
      Readln(x);
    end; 
end.

var 
  n,i,x1,x2,x3 :integer;
  base_odd : boolean;
begin
repeat
  Write('Введите n: ');
  ReadLn(n);
  if n<3 then WriteLn('Ошибка, n должно быть больше или равно 3-м');
until n>2;
WriteLn('Введите ',n,' чисел: ');
ReadLn(x1,x2,x3);
if (odd(x1)=odd(x2)) or (odd(x1)=odd(x3)) then base_odd := odd(x1)
else 
  base_odd := odd(x2);
if (odd(x1)<>base_odd ) or (odd(x2)<>base_odd ) or (odd(x3)<>base_odd ) then begin
if odd(x1)<>base_odd then WriteLn('Лишнее :',x1);
if odd(x2)<>base_odd then WriteLn('Лишнее :',x2);
if odd(x3)<>base_odd then WriteLn('Лишнее :',x3);
end
else
  for i:=1 to n-3 do begin
    ReadLn(x1);
    if odd(x1)<> base_odd  then begin WriteLn('Лишнее :',x1); Break end 
  end;
end.

uses crt;
var 
  n,i,x1,x2,x3:integer;
  base_odd: boolean;
begin
repeat
  ReadLn(n);
  if n<3 then WriteLn('Ошибка');
until n>2;
ReadLn(x1,x2,x3);
if (odd(x1)=odd(x2)) or (odd(x1)=odd(x3)) then base_odd := odd(x1)
else 
  base_odd := odd(x2);
if (odd(x1)<>base_odd ) or (odd(x2)<>base_odd ) or (odd(x3)<>base_odd ) then begin
if odd(x1)<>base_odd then WriteLn(pos(x1));
if odd(x2)<>base_odd then WriteLn(pos(x2));
if odd(x3)<>base_odd then WriteLn(pos(x3));
end
end.

var n, p, q, r, s, t: Integer;
begin
  Read(n);
  for n:=1 to n do begin
    Read(t);
    if Odd(t) then begin
      Inc(r); if p=0 then p:=n;
    end else begin
      Inc(s); if q=0 then q:=n;
    end;
  end;
  if      r=1 then WriteLn('Позиция лишнего: ',p)
  else if s=1 then WriteLn('Позиция лишнего: ',q)
  else             WriteLn('Ошибка в данных');
end.