Объявить двумерный массив размерностью 3×5, заполнить его данными с клавиатуры и вывести на экран ( )

var

   d : array [,] of integer := new integer[3,5];

   

begin

   writeln('заполняем массив:');

   for var i := 0 to 2 do begin

       for var j := 0 to 4 do begin

           write('d[', i, ',', j, ']=');

           readln(d[i,j]);

       end;

   end;

   writeln('d=',d);

end.

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9

        private string fuction(string a,string b)        {
            char[] massa = a.ToCharArray();            char[] massb = b.ToCharArray();            foreach(char itema in massa)            {                foreach(char itemb in massb)                {                    if(itema == itemb)                    {                        break;                    }                    else                    {                        a += itema.ToString();                        break;                    }                }            }            return a;        }