Помогите решить, срочно надо!!

Var x,y:integer;
begin
readln(x,y);
if not((x*x+y*y)<25) and (x*x+y*y >=100) then
writeln(Принадлежит)
else writeln(Не принадлежит);
end.

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку
×