program bien_mang;

uses crt;

var i, n, s : integer;

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

begin

clrscr;

write('So phan tu la: '); readln(n);

s:=0;

for i:=1 to n do begin

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

if a[i] mod 2 = 0 then s:=s+1;

end;

for i:=1 to n do writeln('Các số vừa nhập là :',a[i]);

writeln('so lon nhat cua day',s);

readln;

end.