var i,s:integer;beginwhile i<>100 do beginreadln(i);if i mod 2=0 then inc(s);end;inc(s);writeln(s);end.
var a:string;beginreadln(a);a[1]:='9';writeln(a);end.
var i,s:integer;
begin
while i<>100 do begin
readln(i);
if i mod 2=0 then inc(s);
end;
inc(s);
writeln(s);
end.
var a:string;
begin
readln(a);
a[1]:='9';
writeln(a);
end.