Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу: 1-й — равен удвоенному числу, введенному с клавиатуры; 2-й — равен квадрату суммы индексов предыдущего элемента; 3-й — равен остатку от деления индекса текущего элемента на 2.

Сделал задачу по условию, которое понял.
var 
a: array[1..3, 1..6] of integer; 
i, j: integer;
begin 
Writeln('Введите 6 чисел через Enter '); 
for i := 1 to 3 do   
for j := 1 to 6 do     
case j of       
1, 4: begin Readln(a[i, j]);a[i, j] := 2 * a[i, j]; end;       
2, 5: a[i, j] := sqr(i + j - 1);       
3, 6: a[i, j] := j mod 2;     
End; 
Writeln('Сформированный массив ');      
for i := 1 to 3 do   begin   
for j := 1 to 6 do     
write(a[i, j], ' ');   
Writeln;
end;
end.

Десятиричная двоичная восьмеричная шеснадцатиричная
        0                   0                 0                         0
        1                   1                 1                         1
        2                   10               2                          2
        3                   11               3                          3
        4                   100             4                          4
        5                   101             5                          5
        6                   110             6                          6
         7                  111            7                          7
         8                 1000                                        8
         9                 1001                                        9
         10                1010                                        А
         11                 1011                                        B
         12                 1100                                       C
         13                 1101                                       D
         14                 1110                                       E
         15                  1111                                       F

using System;

namespace znanja

{

   class Program

   {

       static void Main(string[] args)

       {

           int num = int.Parse(Console.ReadLine());

           int[] array = new int[num];

           array = Array.ConvertAll(Console.ReadLine().Split(' ', StringSplitOptions.RemoveEmptyEntries), int.Parse);

           int count = 0;

           for (int i = 0; i < num; i++)

           {

               if (array[i] > 0) count++;

           }

           Console.WriteLine(count);

       }

   }

}