DSolve[{6*x[t] + 7*y[t] + Derivative[2][x][t] == 0, 3*x[t] + 2*y[t] + Derivative[2][y][t] == 2*t},{x[t], y[t]},t]