var n,s,k:Integer;
begin
s:=0;
k:=0;
readln(n);
if (n <10) or (n>99) then
writeln('False');
exit;
end;
s:=(n div 10)+(n mod 10);
if (s mod 2 = 1) then begin
if (s mod 2 = 0) then begin
k:=1;
writeln(k);
end.
var n,s,k:Integer;
begin
s:=0;
k:=0;
readln(n);
if (n <10) or (n>99) then
begin
writeln('False');
exit;
end;
s:=(n div 10)+(n mod 10);
if (s mod 2 = 1) then begin
k:=0;
end;
if (s mod 2 = 0) then begin
k:=1;
end;
writeln(k);
end.