Составте программу на Pascal.

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

 

Входные данные. С клавиатуры вводится число N (1<=N<=1000)

Выходные данные. Программа выводит число таких треугольников.