SQUARES Pascal

var     tu,k,n,s:int64;

procedure giai;
begin
    read(n);
    k:=2013*6;
    tu:=((n mod k)*((n+1) mod k)*((2*n+1) mod k)) mod k;
    s:=(tu div 6) mod 2013;
    write(s);
end;

begin
    assign (input,'SQUARES.inp');reset(input);
    assign (output,'SQUARES.out');rewrite(output);
    giai;
end.