Помогите написать программу- Pascale!

if (x > 0) and (y > 0) then
result := (x-r)*(x-r) + y*y < r*r;
if (x < 0) and (y < 0) and (x >= -r) and (y >= -r) then
result := (x+r)*(x+r) + (y+r)*(y+r) >= r*r;