PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!
begin
var (n,p):=ReadInteger2('Введите n и p:');
var a:=ArrRandom(n,-99,99); a.Println;
var i:=a.FindIndex(t->t=p);
if i=-1 then Writeln('Нет элемента со значением ',p)
else Writeln($'Элемент номер {i+1} имеет значение {p}')
end.