Ответ:

• var
•    n, i, j, sum, count, countEven, countOdd: integer;
• begin
•    readln(n);
•    for i := 1000 to 9999 do  
•    begin
•        sum := 0;
•        for j := 1 to 4 do
•            sum := sum + i.ToString[j].ToDigit;
•        if sum = n then  
•        begin
•            write(i, ' ');
•            count := count + 1;
•            if i mod 2 = 0 then countEven := countEven + 1  
•            else countOdd := countOdd + 1;
•        end;
•    end;
•    Println('Количество: ', count);
•    Println('Четных: ', countEven);
•    Println('Нечётных: ', countOdd);  
• end.

Пример: