Program BTT;
Uses crt;
Var n, d: longint;
Begin
        Clrscr;
        d:=0;
        Repeat
        Write('Nhap mot so bat ki: '); Readln(n);
        If n mod 2 = 0 then inc(d);
        Until n=0;
        Write('Co ',d,' so la so chan');
        Readln
End.