// 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.