пожалуйста помогите!!!

В одномерном массиве X(15) найти:произведение элементов, удовлетворяющих условию 0 < tgxi < 1, а также сумму положительных

Если Tan(x) используете, то пишите, что это PascalABC. В канонах Паскаля (и большинстве реализаций) этой функции нет.

VarX:array[1..15]of integer;P,S,i:integer;BeginP:=1;S:=0;WriteLn('Введи элементы массива');For i:= 1 to 15 do Begin Read(X[i]); if (Tan(i)>0)and(Tan(i)<1) then P:=P*X[i]; if X[i]>0 then S:=S+X[i] End;WriteLn('Произведение равно ',P);WriteLn('Сумма положительных элементов равна ',S)End.