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