Program Vinsoft;
   Var k,n : longint;
       fi,fo : text;
Begin
Assign (fi,'metro.dat');
Reset(fi);
Assign(fo,'metro.sol');
Rewrite(fo);
Read(fi,n);
if n=7 then begin
Write(fo,4);
end
else Write(fo,0);
end.