program CheckSigns;

var
x, currentSign: integer;
alternating: boolean;

begin
alternating := true;

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

if x > 0 then
currentSign := 1
else if x < 0 then
currentSign := -1
else
break;
if currentSign = -1 then
alternating := not alternating;

until currentSign = 0;

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