,поэтому лично по физике задания скидывал

var x,y:real;
begin
readln(x,y);
if ((y>=x) and (x>=0) and (y<=1)) or ((y>=x) and (x<=0) and (x^2+y^2<=1))
then write('принадлежит')
else write('не принадлежит');
end.

var a:array[1..9] of record
b:integer;
d:integer;
end;
p,j,v,m,i:integer;
c:char;
begin
for i:=1 to 9 do a[i].b:=i;
repeat read©;
begin
if c<>'.'
then
p:=strtoint©;
a[p].d:=a[p].d+1;
end;
until c='.';
for i:=1 to 9 do begin
for j:=1 to 9 do
if a[j].d>a[i].d
then
begin
v:=a[j].b;
m:=a[j].d;
a[j].d:=a[i].d;
a[j].b:=a[i].b;
a[i].d:=m;
a[i].b:=v;
end; end;
for i:=1 to 9 do if a[i].d<>0 then write(a[i].b);
end.

С1 Quote var x,y:real; begin readln(x,y); if ((y>=x) and (x>=0) and (y<=1)) or ((y>=-x) and (x<=0) and (x^2+y^2<=1)) then write('принадлежит') else write('не принадлежит'); end.