Написать программу на Паскале, определяющую, сколько раз число 10 встречается среди...

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,50);
a.Println;
Writeln('Количество чисел 10 равно ',a.Where(x->x=10).Count)
end.

Тестовое решение:
n= 20
27 7 12 44 27 49 11 8 45 12 8 50 39 10 1 37 37 25 27 11
Количество чисел 10 равно 1

Написать программу ** Паскале, определяющую, сколько раз число 10 встречается среди...