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