Uses crt;

Var a: array[1..100] of integer;

        i,n:integer;

Begin

Clrscr;

Write('nhap n: ');  readln (n);

For i:=1 to n do

Begin

Write('nhap a[',i,']: ');   readln (a[i]);

End;

Write ('cac so chan co trong mang la: ');

For i:=1 to n do 

If a[i] mod 2=0 then write (a[i],'  ');

Readln;

End.

program tong_chan;

uses crt;

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

      n,i,t:integer;

begin

       clrscr;

       write('Nhap N: ');  readln(n);

       t:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

                     if A[i] mod 2=0 then t:=t+A[i];

              end;

       write('Tong cac phan tu chan la: ',t);

       readln;

end.