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

программа для вычисления натуральных трехзначных чисел, сумма которых равна заданному натуральному числу Var N , i , k , L : integer;beginread ( N ) ;L : = 0;for i : = 100 to 999 dobegink : = ( ( i mod 100 ) mod 10 ) + ( ( i mod 100 ) div 10 ) + ( i div 100 ) ;if ( k = N ) thenbeginL : = L + 1 ;end ;end;writeln ( L ) ;end.