program zad;
var i,j,s,n:integer;
Begin
readln(n);
i:=0;
s:=0;
   while sqr(i)    j:=0;
        while sqr(i)+sqr(j) < n do begin
   inc(s); inc(j);
   end;
   inc(i);
   end;
writeln('количество решений равно ' ,s);
readln;
end.