Входные данные
5 чисел - mx,my - координаты точки М, xc,yc - координаты центра круга, r - радиус круга
Выходные данные
Вывести "точка М лежит в круге" если это так или "точка М лежит вне круга"
Решение
var xc,yc,mx,my,d,r:real; begin readln( mx,my,xc,yc,r ); //mx,my - координаты точки M, xc,yc,r - координаты круга и его радиус d:=sqrt(sqr(xc-mx)+sqr(yc-my)); if d<=r then writeln ('точка M лежит в круге') else writeln ('точка M лежит вне круга'); end.