Напишите программу, которая в последовательности натуральных чисел определяет минимальное чётное двузначное число. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом `0` (`0` - признак окончания ввода, не входит в последовательность). Количество чисел не превышает `1000`. Введённые числа не превышают `30 000`. Программа должна вывести одно число: минимальное четное двузначное или NO, если таких чисел нет.
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.