GIAODIEM Pascal

var n,h,d,tu:int64;
begin
    assign(input, 'giaodiem.inp');reset(input);
    assign(output, 'giaodiem.out');rewrite(output);
    readln(n);
    h:=24*2014;
    tu:=((n mod h)*((n-1) mod h)*((n-2) mod h)*((n-3) mod h)) mod h;
    d:=(tu div 24) mod 2014;
    writeln(d);
end.