Uses Crt;
Var a:array[1..1000] of integer;
i,n,tsc:integer;
Begin
Clrscr;
Write(' Nhap so ptu N = '); Readln(n);
Writeln;
For i:=1 to n do
Begin
Write(' Nhap a[',i,'] = '); Readln(a[i]);
End;
tsc:=0;
WRITE('Day so da nhap tren la: ');
For i:= 1 to n do Write(a[i]:5);
Writeln;
WRITE('Cac so chan trong day tren la: ');
For i:=1 to n do
Begin
If a[i] mod 2 = 0 then
Begin
write(a[i]:5);
tsc:=tsc+a[i];
End;
End;
Writeln;
Write('Tong cac so chan trong day tren la: ',tsc);
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 gia tri la so chan la: ',t);

     readln;

end.