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