program Kolcho;
var x,y,v: real; otvet:char;
Rb:=10;
rm:=5;
begin
writeln('введите значение х');
readln(x);
writeln('введите значение y');
readln(y);
v:=x*x+y*y;
if ((sqr(x)<100-sqr(y))) or (sqr(x)=100-sqr(y))) and (sqr(x)>25-sqr(y))) then writeln('принадлежит')
else writeln('не принадлежит');
end.
так?
но там ошибка,не пойму что не так