Составить программу на...

Составить программу на паскале, которая печатает true, если точка с координатами (x,y)ринадлежит заштрихованной области, и false в противном случает.Ссылка на картинку: http://s019.radikal.ru/i614/1205/29/6f207a690a88.jpg

 

uses crt;
var x,y,z:integer;
begin
clrscr;
writeln('Vvedite x,y');
readln(x,y);
if (x<0) and (y>0)
then
begin
if (sqr(x)+sqr(y)< 36) then writeln('True') else
writeln('False');
end else
if (x>0) and (y>0) and (sqr(x)+sqr(y)>9) and(sqr(x)+sqr(y)<36) then writeln('True')
else writeln('False');
readln();
end.