Склавиатуры вводятся целые числа. признак конца ввода - число 0. определить число, следующее за последним из отрицательных чисел. может кто-нибудь написать код просто я совсем дуб, а сдать буду безмерно ) прям

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.