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

var    N, i, k, sum, t: integer;begin    readln(N);    k := 0;        for i := 100 to 999 do    begin        t := i;        while t > 0 do         begin            sum := t mod 10;            t := t div 10;        end;        if sum = N then k := k + 1;    end;        writeln(k);end.