Составить программу, которая печатает true, если точка с координатами (x, y) принадлежит закрашенной области, и false в противном случае.(паскаль)

var x,y:real;

begin

readln(x,y);

writeln((x*x+y*y<=1)or(x*x+y*y>=2*2)and(x*x+y*y<=3*3));

end.

Пример:

0.5 0.5

True