Ну-с, массив сам введешь и поменяешь название массива тут.
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;
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.