Cоставить процедуру ввода элементов одномерного массива и вычисления количества элементов, равных К.
(Не обязательно) Разработать программу где осуществляется вызов данной процедуры.

procedure FillArr(var a: array of integer; n, k: integer);

begin

 a := ReadArrInteger(n);

 Println($'{a.Where(t -> t = k).Count} эл. равны k');

end;

begin

 var a: array of integer;

 var (n, k) := ReadInteger2('n,k->');

 FillArr(a, n, k);

end.