Question

Сколько существует $($невырожденных$)$ треугольников периметра $N$ с целыми длинами сторон$?$ $($Треугольник со сторонами $a,b,c$ называется невырожденным$,$ если из отрезков длины $a,b,c$ его можно составить$.)$
Входные данные$,$ С клавиатуры вводится число $N$ $(1 leq N leq 1000)/$
Выходные данные$,$ Программа выводит число таких треугольников.

Answer 1

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.