Я бы за эту задачу побольше пунктов дал!!! Или лучшее решение так вот программка:
program Apple;
var x,y,x0,y0,r1,r:real;
begin
readln(x,y,x0,y0,r1,r);
if (x>(x0+r1)) and (y>(y0+r1)) and (x<=(x+r)) and (y<=(y0+r))<br> then writeln('попал куда надо')
else writeln('не попал куда надо');
end.
И табличка: