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

Ну вот, вроде ,я сделал.Как ты сказал - без mod div и /

program znanija; const  min=1;  max=27;var  s, d, e, c, n: Integer;begin  repeat    write('Введите n (', min, '<=n<=', max, ') ');    Readln(n);  until n in [min..max];  c:=0;  for s:=1 to 9 do    for d:=0 to 9 do      for e:=0 to 9 do        if s+d+e=n   then Inc(c);  writeln('Количество чисел с суммой цифр = ', n, ' = ', c);end.