В продовження пошуку ефективних розв'язків пропонуємо розв'язок Дениса Власова
із НВК "Антей", що у м.Кам'янці-Подільському.

Var
   r, i, s : longint;
begin
   readln(r);
   s := 1;
   for i := 0 to r-1 do
      s := s + 4*trunc(sqrt(r*r - i*i));
   writeln(s);
end.