uses crt-

varx1,x2,y1,y2,r:real-

begin-

clrscr-

writeln(‘Введите координаты первой точки (X и Y) послекаждой коор. ENTER’)-

readln(x1)-

readln(y1)-

writeln(‘Введите координаты второй точки (X1 и Y1)после каждой коор. ENTER’)-

readln(x2)-

readln(y2)-

writeln(‘Введите радиус окружности(если нет, тоr=0)’)-

readln(r)-

{Т.к. координаты должны браться по модулю, то:}

x1:= SQR(x1*x1)-

x2:= SQR(x2*x2)-

y1:= SQR(y1 *y1)-

y2:= SQR(y2 * y2)-

IF r *r &gt- x1 * x1 + y1 *y1 THEN writeln(‘Перваяточка лежит в пределах окружности’)-

IF r * r &gt- x2 *x2 + y2 *y2 THEN writeln(‘Втораяточка лежит в пределах окружности’)-

IF x1 * x1 + y1*y1&gt- x2 *x2 + y2 *y2 THEN

begin

writeln(‘первая точка находится дальше.’)-

end

else writeln (‘вторая точка находится дальше.’)-

IF x1 * x1 + y1*y1&gt- x2 *x2 + y2 *y2 THEN

begin

writeln(‘Первая точка лежит дальше от окружности’)-

end

else writeln(‘Вторая точка лежит дальше отокружности’)-

end.