посчитайте решить на паскале вариант 24

:

program Var24;

var x, y: real;

begin

readln(x, y);

if (sqr(x) + sqr(y) <= 4) then

writeln('Принадлежит')

else

writeln('Не Принадлежит')

end.