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

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