Решите плиз 7 задание В Паскале Заранее спасибо

Question

Решите плиз 7 задание
В Паскале
Заранее спасибо

---

Answer 1

Program n7;
var: x, y, R: real;
begin
readln(x);
readln(y);
readln(R);
if (abs(x)writeln('принадлежит');
else
writeln('не принадлежит');
end.