uses crt;
var x1,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 > x1 * x1 + y1 *y1 THEN writeln('Первая точка лежит в пределах окружности');
IF r * r > x2 *x2 + y2 *y2 THEN writeln('Вторая точка лежит в пределах окружности');
IF x1 * x1 + y1 *y1> x2 *x2 + y2 *y2 THEN
begin
writeln('первая точка находится дальше.');
end
else writeln ('вторая точка находится дальше.');
IF x1 * x1 + y1 *y1> x2 *x2 + y2 *y2 THEN
begin
writeln('Первая точка лежит дальше от окружности');
end
else writeln('Вторая точка лежит дальше от окружности');
end.