var A: array[1..100] of integer; i,dem,n: integer; tong: real;
begin
    write(‘Nhap so n: ‘);
    readln(n);
    for i:=1 to n do
    begin
        write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
        readln(a[i]);
    end;
    for i:=1 to n do
        if (a[i] mod 2 = 0) then 
        begin
            dem:=dem+1;
            tong:=tong+a[i];
        end;
    writeln(‘Ket qua: ‘);
    writeln(‘Cau a: Day la toan bo mang: ‘);
    for i:=1 to n do
        write(a[i],’ ‘);
    writeln();
    writeln(‘Cau b: So luong phan tu chan la: ‘,dem);
    writeln(‘Cau c: Tong phan tu chan la: ‘,tong:0:0);
    readln
end.