Определить попадает ли точка в заданный диапазон. Написать программу.Pascal

var x,y,r:real;beginread(x,y,r);if (x>=0) and (y>=0) and (x^2+y^2<=r^2) and (x<=0) and (y<=0) and (x+y>= -r) then write('попадает') else write('нет');end.

var    x, y, r: real;begin    read(x, y, r);    if ((x >= 0) and (y >= 0) and (x * x + y * y <= r * r))         or ((x < 0) and (y < 0) and (x + y >= -r)) then         write('да')     else         write('нет');end.