Разветвляющийся вычислительный процесс

var
Z,x,y:integer;
Begin
write('x=');
write('y=');
readln(x);
readln(y);
case Z of
(-3<x)and (x<=0): Z:=((cos(y-x)-abs(x+4)/y^2+1);
(0<x) and (x<4): Z:=(ctg(x-(3Pi/3)+log3(abs(x-1));
Z:=((sinx+sqrt(x-4)/e^-1.2);
 
end.

var
  x, y: integer;
 
function Z1(a, b: integer): real;{Первая функция, значение функции будет вещественное, поэтому тип функции real, но т.к. оператор case применим только к порядковым типам, то переменные  у нас integer}
begin
  Z1 := (cos(y - x) - exp(ln(abs(x + 4)) * (2 / 5))) / (sqr(y) + 1);
end;
 
function Z2(a, b: integer): real;{Вторая функция}
begin
  Z2 := (cos(x - 3 * Pi / 5)) / (sin(x - 3 * Pi / 5)) + ln(abs(1 - x)) / ln(3);
end;
 
function Z3(a, b: integer): real;{Третья функция}
begin
  Z3 := (sin(x) + sqrt(x - 4)) / exp(-12);
end;
 
 
begin
  write('Введите x: ');
  readln(x);
  write('Введите y: ');
  readln(y);
  
  case x of {Т.к. от X зависит какую функцию нам выбрать, поэтому мы применяем оператор выбора case непосредственно к X}
    -2..0: writeln(Z1(x, y)); {-3<x<=0, т.к. тип порядковый, мы не можем брать числа в диапазоне между целыми числами, поэтому наш диапазон от -2 до 0(включительно)}
    1..3: writeln(Z2(x, y)); {0 <x <4}
    4..2147483647: writeln(Z3(x, y)); {все остальные значения, в данном случае используетсся тип integer(его диапазон от −2 147 483 648  до 2 147 483 647), но учитывая корень, наша область определения от 4 до 2147483647}
  end;
end.