Verified answer

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Введите элементы массива:', n);

 Println('Элементов, меньших 50:', a.Count(p -> p < 50))

end.