{* Задача 267 *}

Unit ZADACH267;
Interface
Implementation
Begin
 writeln('Вычислить k-количество точек с целочисленными координатами, попадающих в круг радиуса R (R > 0). ');
End.

Program zadach267;

Uses zadach267.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  k : integer;
  r : integer;
  y : integer;
  x : integer;
Begin
  clrscr; {* Очистка экрана *}
  writeln ('vvedite radius');
  readln (r);
  For x := 0 To r Do {* Увеличиваем x от 0 до r с шагом 1 *}
    For y := 0 To r Do {* Увеличиваем y от 0 до r с шагом 1 *}
    Begin
      If r > sqrt(sqr(x) + sqr(y)) Then
      Begin
        k := k + 1;
      End;
      
    End;
  k := ((4 * k) - (6 * (r - 1))) - 1;
  writeln ('k=', k);
  readln; {* Ждем нажатия Enter *}
End.