var r,x,y,z:longint; Begin ReadLn(r); For x:=0 to r do For y:=0 to r do If Sqr(x)+Sqr(y)