Помогите составить программу на Паскале
 

Вычислить компоненты вектора х(х1,х2...х8)в зависимости от условия
F(xi)=e^√i+1 +2 eсли sin(i+a)>0.5
F(xi)=3tg(i+1) если sin(i+1)<=0.5
Где а=0.5 подсчитать число отрицательных компонентов и записать их порядковые номера

PS.одномерные массивы)))