Определить количество точек с целочисленными координатами, нахадящихся на поверхности шара

program S1;
USES CRT;
var R,b,x,y,z,k,a,c,f:longint;
begin
CLRSCR;
Writeln('Vvedite Radius=');
Readln(R);
For x:=0 to R do
    b:=sqr(x);
    For y:=0 to R do
        c:=sqr(y);
        For z:=0 to R do
            f:=sqr(z);
            a:=b+c+f;
            b:=sqr(R);
IF a=b THEN k:=k+1;
WRITELN(k);
 
Readln;
end.

var R,b,x,y,z,k,a,c,f:longint;
begin
Writeln('Vvedite Radius=');
Readln(R);
k:=0;
For x:=0 to R do
    For y:=0 to R do
        For z:=0 to R do
          begin
              b:=sqr(x);
              c:=sqr(y);
              f:=sqr(z);
              a:=b+c+f;
              b:=sqr(R);
             IF a=b THEN k:=k+1;
          end;
WriteLn(k);
Readln;
end.

var x,y,z,r,k,y_n,z_n:integer;
 
BEGIN
  readln(r);
  k := 6; {"нулевые"}
  for x:= 1 to r-1 do
   begin
    y_n := trunc(sqrt(r*r - x*x));
    for y:= 0 to y_n do
    begin
     z_n:= trunc(sqrt(r*r - x*x - y*y));
     for z:= 0 to z_n do
      if r*r = ( x*x + z*z + y*y ) then
       if z=0 then
        begin
         if y=0 then k:=k+2
         else k:=k+4;
        end
       else k:=k+8;
    end;
   end;
  writeln(k);
  readln;
end.