Pascal
Написать программу, вычисляющую по заданному значению аргумента X значение функции Y по
соответствующей значению Х формуле :
1) Y = X+sin X, если -3 < Х < -1 ИЛИ 0 < X < 2;
2) Y = -X, если 4 < Х < 8 ИЛИ X > 15;
3) Y = X, при любом другом Х

var X,Y:real; beginread(X); if ((-3<X) and (X<-1)) or ((0<X) and (X<2)) then Y := X + sin(X)  else if ((4<X) and (X<8)) or (X>15) then Y := -X else Y:=X; Println('Y:',Y); end.

Пример работы: