{ Дана таб. а[1..n],сост. из нулей и единиц. Проверить сущ. ли строгое чередование }

uses crt;
var a:array[1..10]of integer;
    flag,i,k,n:integer;
begin
  clrscr;
  write('кол-во элм. таб. n=');
  readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');
	readln(a[i]);
  end;
  i:=1;
  while i<=n-1 do
  begin
    flag:=0;
    if ((a[i]=1)and(a[i+1]=0))
	or((a[i]=0)and(a[i+1]=1))
     then flag:=1
     else begin
    write('нет');flag:=0;
	    readln;halt;
          end;
    i:=i+2;
  end;
  if flag=1 then 
  write('чередование существует');
  readln;
end.