Сделать в паскале, вот дана система: ln|x|, x< -1 sin x, -1≤x< 1 cos x, x≥1 решение у меня есть (не знаю правильное ли), но саму понять вообще не могу, в чем ее

Var
x,y:real;
begin
readln(x);
   if x<-1 then
       y:=ln(abs(x));
   if (x>=-1)and(x<1)then
      y:=Sin(x);
   if x>=1 then
     y:=Cos(x);
writeln(y:4:2);
end.