program z7_44;
var
a: array[1..100] of integer;
i,k,n:integer;
begin
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà ');
readln(n);
for i:=1 to n do
begin
write('ââåäèòå ',i,' ýëåìåíò ìàññèâà ');
readln(a[i]);
end;
k:=0;
for i:=1 to n-1 do
if a[i]*a[i+1]>0 then k:=1;
if k<>0 then writeln('îäèíàêîâûå ýëåìåíòû åñòü')
else writeln('îäèíàêîâûõ ýëåìåíòîâ íåò');
End.