Напишите программу, которая в последовательност натуральных чисел определяет, все ли числа в последовательности трехзначные. программа получает на вход последовательность чисел заканчивающимся нулем. вход: 35,717,405,225,0 выход: no

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  if ReadSeqIntegerWhile(t->t<>0).Any(t->(t<100) or (t>999)) then
    Writeln('No')
  else Writeln('Yes')
end.

Пример
35 717 405 225 0
No