program tongchan; var A: array[1..200] of integer ; i, n, S: integer ; begin writeln(′ Nhap so luong phan tu: ′); readln(n); for i:=1 to n do begin writeln(′Nhap so thu: ′,i); readln(A[i]); end; S:=0; writeln(′Cac so chan trong day la: ′); for i:=1 to n do if (A[i] mod 2 = 0) then begin write(A[i]:6); S:=S+A[i]; end; writeln; writeln(′Tong cac so chan la: ′, S); readln; end.
