С клавиатуры вводится целое число x. Необходимо найти наименьшую четную цифру числа. Если такой цифры нет, вывести - NO. Примечание: цифра "0" - четная. В паскале ABC.

:

var x,k: integer;

begin

k:=10;

read(x);

repeat

if (abs(x) mod 10 mod 2 = 0) and (abs(x) mod 10 < k) then k:=abs(x) mod 10;

x:=x div 10

until x=0;

if k=10 then write('NO')

else write(k)

end.