Write SQL query to solve given problem: Who is the top sales person who achived highest percentage of projected sales quota in 2013?. Keep the solution inside sql tag ```sql [SQL-Query] ```
SELECT BusinessEntityID FROM SalesPerson WHERE BusinessEntityID IN ( SELECT BusinessEntityID FROM SalesPersonQuotaHistory WHERE STRFTIME('%Y', QuotaDate) = '2013' ) ORDER BY CAST(SalesLastYear AS REAL) / SalesQuota DESC LIMIT 1