PascalABC.NET версия 3.7.1
##
var n := ReadInteger('n=');
var a := ReadArrInteger('Вводите:', n);
var i := a.IndexOf(-25);
if i < 0 then
Print('такого числа нет')
else
Print(i + 1)
