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
end.
