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