Підібрати конструкційні матеріали це

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  

Объяснение:

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.ReadLine());

           }

           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(); // Ждем нажатия клавиши

       }

   }

}

Подробнее - на -