program p1243;
var aa:string;
    a:array[1..100] of shortint;
    i,k:integer;
begin
     readln(aa);
     for i:=1 to length(aa) do a[i]:=ord(aa[i])-48;
     for i:=1 to length(aa) do
     begin
         k:=a[i] mod 7;
         a[i+1]:=a[i+1]+k*10;
     end;
     writeln(k);
end.

єЗєЗ