С клавиатуры вводятся целые числа. Признак конца ввода - число 0.

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ReadSeqIntegerWhile(t -gt; t lt;gt; 0).Pairwise

     .Where(t -gt; (t[0] lt; 0) and (t[1] gt;= 0)).ToArray;

 if a.Length gt; 0 then (a.Last)[1].Println

 else 'Отсутствует значение, удовлетворяющее заданию'.Println

end.