PascalABC.NET
begin
var a := ReadArrInteger(15); // вводим 15 элементов
a.Count(p -> p < 10) // подсчитываем те которыве меньше 10
.Println // и выводим результат
end.
