Дано к. определить n количество трехзначных натуральных чисел у которых сумма цифр p=k- Pascal(Паскаль)

var
  n, k, p, i, j: integer;
 
begin
  write('k? '); readln(k);
 
  p:=k-1;
  n:=0;
  for i:=1 to 9 do begin
    if (0<=p) and (p<=18) then begin
      for j:=0 to 9 do begin
        if (0<=p) and (p<=9) then begin
          writeln(i,j,p);
          inc(n);
          end;
        dec(p);
        end;
      inc(p, 10);
      end;
    dec(p);
    end;
  inc(p, 10);
 
  writeln(n);
 
  readln;
end.