Вивести в стовпчиним всі чотиризначні числа сума цифр якого дорівнює чисалу яке введене з клаві!

Var a, b: real; begin read(a); while a < =9999 do begin read(b); if (b div 1000 < > 0) and (b div 1000 + b div 100 mod 100 + b div 10 mod 10 + b mod 10 = a) then begin writeln(b); end; end.

Using system; using system.collections.generic; using system.linq; using system.text; namespace consoleapplication4 {       class program       {               // дан массив с1, с2, …, с24. в массиве есть два элемента равные 0. заменить все элементы, стоящие между ними, на единицы               static void main(string[] args)               {                       const int n = 24; // размер массива                       int[] с = new int[n]; // создали массив                       for (int i = 0; i < n; i++) // вводим элементы массива                       {                               с[i] = int.parse(console.;                       }                       bool check = false; // индикатор замены (пока что выключен)                       for (int i = 0; i < n; i++) // цикл для выполнения замены                       {                               if (с[i] == 0) // если проверемый элемент нулевой, то переулючить индикатор замены и закончить текущую иттерацию                               {                                       check = ! check;                                       continue;                               }                               if (check == true) // если индикатор замены включен, то заменяем текущий элемент                                       с[i] = 1;                       }                       for (int i = 0; i < n; i++) // выводим элементы массива                       {                               console.writeline(с[i]);                       }                       console.readkey(); // ждем нажатия клавиши               }       } }