uses crt;
var a:array[1..9999] of integer;
i,t,t1,t2:integer;
N:word;
begin
        clrscr;
        write('Nhap n:');
        readln(n);
        if n=0 then n:=n-1;
        t:=0;
        t1:=0;
        t2:=0;
        for i:=1 to n do
        begin
                write('Phan tu[',i,']=');
                readln(a[i]);
                if a[i] mod 5=0 then t:=t+a[i];
                if a[i]<0 then t1:=t1+1;
                if (a[i] mod 2=0) and (i mod 2=0) then t2:=t2+a[i];
        end;
        writeln('Tong cac so chia het cho 5:',t);
        writeln('So luong so am:',t1);
        writeln('Tong cac so le o vi tri chan:',t2);
        readln;
end.