Перебои все элементы массива, а потом через "%/2" проверку сделай. Воаля.
после запятой значение переменной
writeln ('s = ', s);
1) y:=2*sin(x)*sqrt(x+sqrt(abs(x)))
2sinx+корень(х+корень(|x|))
2) y:=sqrt(sin(x)+sin(sqrt(x)))
корень(sinx+sin(кореньх))
<span>3) y:=sqrt(abs(x-1)+sqrt(sin(x)))
</span>корень(|x-1|+кореньsinx)