DSolve[{x'[t]==-y[t]+Sin[t], y'[t]==x[t]+1, x[0]==0, y[0]==0},
				{x[t], y[t]}, t]