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

А английские ЯП лучше читаются, что ли?

кон, черед, вып

По-русски в любом случае понятнее.

английские как-то плавнее

но, спор этот несущественен

ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;ПЕР  число: ЦЕЛ;  полож, черед: КЛЮЧ;УКАЗ  черед := ВКЛ;  число := Приём.Число();  полож := число > 0;  ПОКА число # 0 ВЫП    Вывод.Цепь("^");    ЕСЛИ (полож И число > 0) ИЛИ (НЕ полож И число < 0) ТО      черед := ОТКЛ    КОН;    число := Приём.Число();    полож := число > 0  КОН;  ЕСЛИ черед ТО Вывод.Цепь("Чередуются.") КОНКОН Задание.