DSolve[{Derivative[1][y][t] + Derivative[2][x][t] + Derivative[2][y][t] == Sinh[2*t], 2*Derivative[2][x][t] + Derivative[2][y][t] == 2*t},{x[t], y[t]},t]