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.