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

Предыдущий
вопрос Следующий
вопрос

program CheckSigns;

var
x, currentSign: integer;
alternating: boolean;

begin
alternating := true;

repeat
write('Введите число: ');
readln(x);

until currentSign = 0;

if alternating then
writeln('Знаки в последовательности чередуются.')
else
writeln('Знаки в последовательности не чередуются.');
end.