{Ця задача із шкільного підручника Зарецької. Ч.2. Стор.237, № 5} var x,y,k,R:longint; begin readln(R); {Знаходимо кількість точок у першому координатному куті, не враховуючи точки на осях} k:=1; {Точка з координатами 0;0 завжди входить у коло} for x:=1 to R do for y:=1 to R do if x*x+y*y<=R*R then k:=k+1; {Додаємо точки ще в трьох координатних кутах і на осях} k:=k*4+R*4; writeln(k) end.