Написать программу на Паскале для нахождения точки с координатами x, y заштрихованной области

Пожалуйста, протестируйте эту задачу !!!!uses Crt;  var X,Y: real;      bol: boolean;begin ClrScr; Write(' X = ');  ReadLn(X); Write(' Y = ');  ReadLn(Y); bol:=(Y>=0) and (Y<=sqrt(9-x*x)) and (Y<=3-X/2); if bol=true then Writeln (' Yes!!!')             else WriteLn (' No...'); ReadLn;end.