program oken;
uses crt;
var a: array[3..1000] of integer;
    n,i,s,dem: longint;
begin
    clrscr;
    repeat
        write('Nhap so phan tu cua mang: '); readln(n);
    until (n>=3) and (n<=100);
    for i:=1 to n do
        begin
            write('a[',i,']: ');
            readln(a[i]);
        end;
    write('Mang vua nhap: ');
    for i:=1 to n do
        write(a[i],' ');
    writeln; write('Cac so le trong mang: ');
    for i:=1 to n do
        if a[i] mod 2=1 then
            begin
                write(a[i],' ');
                dem:=dem+1;
                s:=s+a[i];
            end;
    writeln; writeln('Tong cac so le: ',s);
    writeln('So luong cac so le: ',dem);
    write('Cac so chan trong mang: '); dem:=0; s:=0;
    for i:=1 to n do
        if a[i] mod 2=0 then
            begin
                write(a[i],' ');
                dem:=dem+1;
                s:=s+a[i];
            end;
    writeln; writeln('Tong cac so le: ',s);
    writeln('So luong cac so le: ',dem);
    readln;
end.

uses crt;

var a:array[1..1000]  of integer;

      n,i,d1,d2,s1,s2:integer;

begin

clrscr;

repeat readln(n);

until (3<=n) and (n<=1000);

d1:=0;d2:=0;s1:=0;s2:=0;

for i:=1 to n do begin write('a[',i,'=]');

                                    readln(a[i]);

                          end;

write('Cac so vua nhap: ');

for i:=1 to n do write(a[i],' ')

writeln;

write('Cac so le: ');

for i:=1 to n do if a[i] mod 2<>0 then

    begin write(a[i],' ');

               d1:=d1+1;

               s1:=s1+a[i];

     end;

writeln;

writeln('So luong so le: ',d1);

writeln('Tong cac so le: ',s1);

write('Cac so chan: ');

 for i:=1 to n do if a[i] mod 2=0 then

    begin write(a[i],' ');

               d2:=d2+1;

               s2:=s2+a[i];

     end;

writeln;

writeln('So luong so chan: ',d2);

writeln('Tong cac so le: ',s2);

write('Vi tri cac so le: ');

for i:=1 to n do if a[i] mod 2<>0 then write(i,' ');

writeln;

write('Vi tri cac so chan: ');

for i:=1 to n do if a[i] mod 2=0 then write(i,' ');

readln

end.