Определить есть ли в заданном четырехзначном числе четная цифра

uses crt;
var a,b,k:integer;
begin
 write('a=');
  readln(a);
 repeat
  b:=a mod 10;
   if not(odd(b)) then
    inc(k);
  a:=a div 10;
 until a=0;
 if k<>0 then
  writeln('Äà,åñòü')
 else
  writeln('Íåòó..');
end.

uses crt;
const n=4;
var a,b,k,i:integer;
    x:array[1..n] of integer;
begin
 for i:=1 to n do
  readln(x[i]);
 clrscr;
 write('×èñëî - ');
  for i:=1 to n do
   write(x[i]);
  writeln;
 for i:=1 to n do
  begin
   b:=x[i] mod 10;
    if not(odd(b)) then
     inc(k);
    x[i]:=x[i] mod 10;
  end;
 if k<>0 then
  writeln('Äà,åñòü')
 else
  writeln('Íåòó..');
end.

var a: integer;
begin
  write('a = ');
  readln(a);
  if (a mod 2 = 0) or (a div 10 mod 2 = 0) or (a div 100 mod 2 = 0) or (a div 1000 mod 2 = 0)
    then writeln('Да, есть.')
    else writeln('Нету...');
  readln
end.

var a, e: integer;
    s: string;
begin
  repeat
    write('Введите целое четырёхзначное число: ');
    readln(s);
    val(s, a, e);
    if (e > 0) or (abs(a) < 1000) or (abs(a) > 9999) then writeln('Ошибка ввода.')
  until (e = 0) and (abs(a) >= 1000) and (abs(a) <=9999);
  if (a mod 2 = 0) or (a div 10 mod 2 = 0) or (a div 100 mod 2 = 0) or (a div 1000 mod 2 = 0)
    then writeln('Чётные цифры есть.')
    else writeln('Чётных цифр нет.');
  readln
end.