Help me!
Program Contest_B;
Var
  I, R : LongInt;
  Ans : Int64;
  Tmp : Extended;
Begin
  ReadLn(R);
  If R = 1 Then
    Ans := 4
  Else
    Begin
      Ans := 0;
      For I := R - 1 Downto 0 Do Begin
        Tmp := Sqrt(Sqr(R) - Sqr(I));
        If Tmp - Trunc(Tmp) <= 1E-9 Then
          Inc(Ans, Trunc(Tmp))
        Else
          Inc(Ans, Trunc(Tmp) + 1);
      End;
      Ans := Ans * 4;
    End;
  WriteLn(Ans);
End.