Как записать синус в степени n в паскале, помогите

Александр Максимюк, и как будет выглядеть логарифм, когда синус неположителен?

st:=1; for i:=1 to abs(n) do st:=st*sin(m); if n<0 then st:=1/st;