на вход-целые числа, количество неизвестно, заканчивается 0(while.)Найти количество пар элементов (пара элементов - это любые подряд идущие в последовательности два числа), модуль разности которых меньше 7. паскаль

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  ReadSeqIntegerWhile(t->t<>0).Pairwise      .Where(t->Abs(t[0]-t[1])<7).Count.Printlnend.Пример6 11 -9 -2 5 10 7 9 13 -6 -2 06