Вычислить функцию. Провести анализ: при каком значении аргумента функция не определена- Pascal(Паскаль)

   | cos(sin(x)), x<2
y= | ln(sqrt(x)), 7<x<20
   | (1+1/7)*x, x=>20

program primer;
Var x,y:Real;
Begin
Write ('Введите x='); Readln(x);
If x<2 Then y:=cos(sin(x))  Else
If (x>7) and (x<20) Then y:=ln(sqrt(x))  Else
If x>=20 Then y:=(1+1/7)*x;
Write ('Y=',Y:6:2);
End.