var
 be,ki:text;
 n,i:word;
 v:array[1..1000] of word;

begin
 assign(be,'culori.in');
 reset(be);
 readln(be,n);
 for i:=1 to n do
  read(be,v[i]);

 close(be);
 assign(ki,'culori.out');
 rewrite(ki);
 writeln(ki,'0');
 close(ki);
end.