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

uses crt;var    i, n, count: longint;begin    clrscr;    writeln('Zadaite chislo n');    readln(n);        count := 0;    for i := 100 to 999 do        if i div 100 + i div 10 mod 10 + i mod 10 = n then        begin            writeln(i,' ');            count:=count + 1;        end;            writeln(count);    readln;end.