Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу N

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

ned, ndes, ns: integer; //Заводим переменные для единиц, десятков и сотен числа 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.