program povtsel;
uses crt;
const
    n=10;
type
    mas=array[1..n] of integer;
var m:mas;
    i,k,a:byte;
    p,t,z:integer;
begin
    clrscr;
    repeat
        write('Enter n mas:');
        read(k);
        if (k<1) or (k>n) then
            writeln('Error ',k,'<0 and',k,'>n');
    until (k>0) and (k<=n);
    write('Vvedite el mas: ');
    a:=0;
    p:=0;
    for i:=1 to k do
    begin
        readln(t);
        if p=t then
        begin
            if(z<>(i-1)) then
            begin
                a:=a+1;
                m[a]:=i-1
            end
            else
                z:=0;
            a:=a+1;
            m[a]:=i;
            z:=i;
        end;
        {writeln('P:',p,' t:',t,' i',i,' z:',z);}
        p:=t;
    end;
    writeln('El: ',a);
    for i:=1 to a do
    begin
        writeln(m[i]);
    end;
end.