Напишите с клавиатуры натуральное число и находит наименьшее чётную цифру в его десятиной записи

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018// Внимание! Если программа не работает, обновите версию!begin  var (min,n):=(10,ReadInteger);  while n>0 do begin    var d:=n mod 10;    if d.IsEven and (d<min) then min:=d;    n:=n div 10    end;  if min=10 then Writeln('В числе нет четных цифр')  else Writeln('Минимальная четная цифра ',min)end.Примеры162083Минимальная четная цифра 0153379В числе нет четных цифр

//PascalABC.NET//Версия 3.3, сборка 1627beginvar a:=ReadInteger.ToString.Select(t->t.ToDigit).Where(x->x.IsEven);if a.Count=0 then write('нет четных цифр') else write('минимальная четная: ',a.Min);end.