Вывести на экран только,те эл. многомерного массива,которые делятся на 3

Ну-с, массив сам введешь и поменяешь название массива тут.
N и M размерность матрицы
for i:=1 to n
  begin
    for j:=1 to m
      begin
        if(mas[i,j] mod 3 = 0) then
        write(mas[i,j]:2);
      end;
  end;