begin
var a := ReadSeqIntegerWhile(t -> t <> 0).Pairwise
.Where(t -> (t[0] < 0) and (t[1] >= 0)).ToArray;
if a.Length > 0 then (a.Last)[1].Println
else 'Отсутствует значение, удовлетворяющее заданию'.Println
end.
begin
var a := ReadSeqIntegerWhile(t -> t <> 0).Pairwise
.Where(t -> (t[0] < 0) and (t[1] >= 0)).ToArray;
if a.Length > 0 then (a.Last)[1].Println
else 'Отсутствует значение, удовлетворяющее заданию'.Println
end.