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