Ответ:

program z1;

var a,k:integer;

begin

k:=0;

write ('Введите число: ');

readln(a);

repeat

if a mod 10 mod 2 = 0 then k:=1;

a:=a div 10

until (a=0) or (k=1);//прерываем цикл если перебрали все цифры числа или нашли чётную цифру

if k=1 then write ('Есть чётные цифры')

else write ('Нет чётных цифр')

end.