// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqInteger(ReadlnInteger)
.Where(t->t.Between(100,999) and (t mod 10=8)).Count)
end.
Пример
5
21311348 348 321412 1080 308 8828
2