Найти количество трехзначных естественных чисел, сумма цифр которых одинакова данному числу

var n, i, col: integer; //Заводим переменные для заданного числа, счётчика и количества.

ned, ndes, ns: integer; //Заводим переменные для единиц, 10-ов и сотен числа n.

begin

writeln(Введите число n);

readln(n);

//Ниже разбиваем n на три числа.

ns := n div 100; 

ndes := (n div 10) mod 10;

n = n mod 10;

for i := 100 to 999 do if ned + ndes + ns = i then col := col + 1;

writeln(Количество таких чисел сочиняет , col);

end.