Cоставить процедуру ввода элементов одномерного массива и вычисления количества частей,

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

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

begin

 a := ReadArrInteger(n);

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

end;

begin

 var a: array of integer;

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

 FillArr(a, n, k);

end.