Дано целое число X. Вычислить значение функции: 2*x, при x>-10 и x<0;
y = sin(x), при x=0;
x*x+1, при x>0 и x<10.

begin

 var x := ReadInteger('Введите число:');

 if (x > -10) and (x < 0) then

   Print(x * 2)

 else if x = 0 then

   Print(Sin(x))

 else if (x > 0) and (x < 10) then

   Print(x * x + 1);

end.