DSolve[{x[t] + Derivative[1][x][t] - Derivative[1][y][t] == 2*t, -9*x[t] + 3*y[t] + Derivative[1][y][t] + Derivative[2][x][t] == Sin[2*t]},{x[t], y[t]},t]