Зеленый и длинный -это разные значения одного свойства?

Разные,безусловно. они разные

Над найти расстояние от точки до центра окружности. прще использовать квадрат расстояния. если он равен квадрату радиуса, то точка на окружности. если меньше, то внутри круга. больше, то вне круга. var xm,ym,xc,yc,r: real; begin   writeln('введите координаты точки xm, ym');   readln(xm,ym);   writeln('введите координаты  центра окружности xc, yc');   readln(xc,yc);   writeln('введите радиус окружности r');   readln(r);   if sqr(r)=sqr(xm-xc)+sqr(ym-yc) then writeln ('на окружности') else   if sqr(r)> sqr(xm-xc)+sqr(ym-yc) then writeln ('внутри круга') else   writeln('снаружи круга'); end. тест №1 введите координаты точки xm, ym 4 2 введите координаты  центра окружности xc, yc 2 2 введите радиус окружности r 2 на окружности тест №2 введите координаты точки xm, ym 3 1 введите координаты  центра окружности xc, yc 2 2 введите радиус окружности r 2 внутри круга тест №3 введите координаты точки xm, ym -1 -3 введите координаты  центра окружности xc, yc 2 2 введите радиус окружности r 2 снаружи круга

Для произвольной прямой на плоскости будем использовать уравнение: a*x+b*y+c=0; тогда, зная коэффициенты (a, b, c) в уравнении прямой и координаты точки x, y можно будет сделать вывод о расположении прямой и точки.var a,b,c,x,y: real; begin  writeln('введите коэффициенты прямой a,b,c');   readln(a,b,c);   writeln ('введите координаты точки x,y');   readln(x,y);   if (a*x+b*y+c)=0 then writeln ('точка лежит на прямой')  else writeln ('точка не лежит на прямой'); end.тест №1введите коэффициенты прямой a,b,c2 4 -8введите координаты точки x,y-4 4точка лежит на прямой тест №2введите коэффициенты прямой a,b,c2 4 -8введите координаты точки x,y1 4точка не лежит на прямой