var a,b,c,count:integer;begin count:=0; readln (a,b,c); if (a mod 2=0) then count:=count+1; if (b mod 2=0) then count:=count+1; if (c mod 2=0) then count:=count+1; writeln (count);end.
var
a,b,c,count:integer;
begin
count:=0;
readln (a,b,c);
if (a mod 2=0) then count:=count+1;
if (b mod 2=0) then count:=count+1;
if (c mod 2=0) then count:=count+1;
writeln (count);
end.