Ответ:
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.