Ответ:

var x,y:real;

begin

   write('Введите x: '); readln(x);

   write('Введите y: '); readln(y);

   write((abs(y) <= sqrt(abs(4-sqr(x)))) and (abs(y) >= 1) and (abs(x) <= sqrt(3)))

end.