uses crt;
var x,y,s,z1,z2,c1,c2:real;
begin
write('s=');
read(s);
write('x=');
read(x);
write('y=');
read(y);
s:=sqrt(s);
write('vvedite 1 koordinaty');
read(c1);
write('vvedite 2 koordinaty');
read(c2);
z1:=s+x;
z2:=s+y;
if (c1<=z1)and(c2<=z2)and(c1>=x)and(c2>=y) then
write('to4ka popala')
else
write('to4ka ne popala.');
read;
end.

где с1-первая координата, с2-вторая, z1 и z2-вспомогательные точки))) ну там разберешься)))