Помогите решить задачу Turbo Pascal. Входит ли точка в закрашенную область?

Примерно так:

criteria1:=x>0;
criteria2:=sqr(x)+sqr(y)<1;
criteria3:=(y>x-1) and (y<1);

Match:=criteria1 and (criteria2 or criteria3);