program demchia;
uses crt;
var a,b,c,d,e,f:integer;
dem:byte;
begin
clrscr;
dem:=0;
write('Nhap a: '); readln(a);
if a mod 2=0 then dem:=dem+1;
write('Nhap b: '); readln(b);
if b mod 2=0 then dem:=dem+1;
write('Nhap c: '); readln(c);
if c mod 2=0 then dem:=dem+1;
write('Nhap d: '); readln(d);
if d mod 2=0 then dem:=dem+1;
write('Nhap e: '); readln(e);
if e mod 2=0 then dem:=dem+1;
write('Nhap f: '); readln(f);
if f mod 2=0 then dem:=dem+1;
write('Co ',d,' so chia het cho 2');
readln
end.
