В одномерном массиве размерности n найти количество и номера элементов, равных заданному P

// PascalABC.NET

begin

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

var a := ArrRandom(n, -9, 9);

a.Println;

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

var i := a.Indices(t -> t = p);

Println('Найдено элементов:', i.Count);

Print('Номера элементов:');

i.Select(t -> t + 1).Print

end.