begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p.IsEven and (p > 100))
.Min
.Println
end.
а)7
б)9
в)10
г)30
д)1
е)14
ж)10
з)4