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

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