Составьте
программу, определяющую принадлежность точки А(х, у) окружности с центром
0(0; 0) и радиусом R.

В паскалеABC.

var x,y,r:real;beginwriteln('Введите радиус окружности');readln(r);writeln('Введите координаты точки А');readln(x,y);if sqr(x)+sqr(y)=sqr(r) then writeln('Принадлежит')else writeln('Не принадлежит');end.