Подсчитать количество чисел с заданной суммой цифр — Pascal(Паскаль)

program chisla;
var
  i, j, k, l, sum: integer;
begin
  write('Введите сумму цифр: ');
  readln(sum);
  for i := 0 to 9 do
    for j := 0 to 9 do
      for k := 0 to 9 do
        for l := 0 to 9 do
          if i + j + k + l = sum then
            writeln(i * 1000 + j * 100 + k * 10 + l);
end.