Составить программу в которой с пульта вводяться два действительных числа х и у (являющиеся коорд.точки М на плоскости.). Определяется ,принадлежит ли точка М области, указанной на рисунке.

var x,y:real;
begin
  writeln('x, y');readln(x,y);
  if (x>=0) and (y>=0)and (sqr(x-1)+sqr(y)<=1)
  then writeln('Принадлежит')
  else writeln('Не принадлежит');
  readln
end.