Сколько существует невырожденных треугольников периметра с целыми длинами сторонтреугольник со сторонами называется невырожденным если из отрезков длины его можно составить входные данные с клавиатуры вводится число выходные данные программа выводит число таких треугольников.

Var k, n,a,b,c:integer;
Begin
  read(n);
 
  for a := 1 to n do begin
    for b := a to n - a do begin
      c := n - a - b;
      if (c>=a) and (c>=b) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
        k := k + 1;
    end;
  end;
  writeln(k);
End.