Определить количество трехзначных натуральных чисел, сумма цифр которых равна заданному числу 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.