объявить двумерный массив размерностью 35, заполнить его данными с клавиатуры и

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.