var s:real;
    n,i,dc,dl:byte;
    a:array[1..100] of integer;       
    c,l:array[1..100,1..2] of integer;
begin
    write('nhap so ngay: '); readln(n);
    dc := 0;
    dl := 0;
    for i:=1 to n do
    begin
        write('nhap nhiet do ngay thu ',i,': ');
            readln(a[i]);
        s:=s+a[i];
        if a[i] mod 2=0 then
        begin
            inc(dc);
            c[dc,1]:=a[i];
            c[dc,2]:=i;
        end 
    else
        begin
            inc(dl);
            l[dl,1]:=a[i];
            l[dl,2]:=i;
        end;
    end;
    writeln('-----------------------');
    s:=s/n;        
    writeln('nhiet do trung binh la: ',s:0:2);
        writeln('-----------------------');
    writeln('Co ', dc ,' ngay nhiet do chan');
        for i:=1 to dc do 
        writeln('Ngay ',c[i,2],' : ',c[i,1],' do');
        writeln('-----------------------');
    writeln('Co ', dl ,' ngay nhiet do le');
        for i:=1 to dl do 
        writeln('Ngay ',l[i,2],' : ',l[i,1],' do');       
        readln;
end.