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.
