var a, min: integer;

begin

min:=30001;

 readln(a);

while a<>0 do begin

   if (a mod 2 = 0) and (a > 9) and (a <100)and (a< min) then

min := a;

   readln(a);

end;

if min=30001 then writeln('no') else writeln(min);

end.

как раз сам недавно решал))))

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0)

   .Where(p -> p.InRange(10, 99) and p.IsEven)

 .DefaultIfEmpty

 .Min

 .Print

end.