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

Program n7;var: x, y, R: real;beginreadln(x);readln(y);readln(R);if (abs(x)<R) and (abs(y)<R) then dowriteln('принадлежит');elsewriteln('не принадлежит');end.