uses crt;

var a: array[1..30] of integer;

i,d,dd: integer

begin

assign (input,'vao.inp'); reset(input);

assign (output,'ra.out');  rewrite(output);

i:=0;

while eof(input) do 

begin

i:=i+1;

read(a[i]);

end;

d:=i;

writeln ('Day co ',d,' phan tu'):

for i:=1 to d do begin if a[i] mod 2=0 then begin dd:=dd+1; write(a[i]:4); end;

writeln;

write ('Co ',dd,' so chan la: ');

for i:=1 to d do if a[i] mod 2=0 then write (a[i]:4);

close(input);

close(output);

end.

$#Trumtinhoc$

f=open('Daoanhviet96.txt')
a=[i for i in list(map(int,f.readline().split())) if (i%2==0)]
f.close()
print('so cac so chan la',len(a),'va day so chan la',*a)

$\color{red}{\text{#Daoanhviet96}}$