// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
begin
ArrRandomInteger(50,1,10000).Println .Select(t->t.ToString.Count(c->c=5)).Println
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.