Напишите с клавиатуры естественное число и обретает меньшее чётную цифру в

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var (min,n):=(10,ReadInteger);
  while ngt;0 do begin
    var d:=n mod 10;
    if d.IsEven and (dlt;min) then min:=d;
    n:=n div 10
    end;
  if min=10 then Writeln('В числе нет четных цифр')
  else Writeln('Минимальная четная цифра ',min)
end.

Образцы
162083
Минимальная четная цифра 0

153379
В числе нет четных цифр

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