[Marlboro]

 ****
var
m: array [0..N - 1] of integer;
i: integer;
Is: boolean;
begin
i := 0;
Is := true;
while (i <= N - 2) do
begin
if (m[i] * m[i + 1] >= 0) then
begin
Is := false;
break;
end;
end;
if Is then
writeln('Является')
else
writeln('Не является');
end.

Вроде так)