Напишите программу, котороая вводит последовательгость чисел заканчивающихся нудем и определяет, верно ли, что знаки в этой последовательности чередуются. PASCAL.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  ReadSeqIntegerWhile(t->t<>0).Pairwise.All(t->t[0]*t[1]<0).Printlnend.Примеры-6 5 -3 8 -2 7 -10 9 0True-6 5 -3 8 -2 -7 -10 9 0False