Verified answer

type

 ko=record

   x,y:integer;

   s:real;

   end;

 rr=record

   x,y:integer;

   end;

var

 n:array [1..2] of ko;

 r:rr;

 t:real;

 i:integer;

begin

 write('Введите x,y радиуса:'); readln(r.x,r.y);

 write('Радиус:'); readln(t);

 for i:=1 to 2 do

   begin

     write('Введите x,y ',i,'-ой точки:');

     readln(n[i].x,n[i].y);

     n[i].s:=abs(sqrt(sqr(r.x-n[i].x)+sqr(r.y-n[i].y))-t);

     writeln('От ',i,'-ой точки до окружноси: ',n[i].s);

   end;

 if n[1].s = n[2].s then

   begin

     writeln('Точки равноудалённые!');

     for i:=1 to 2 do

       writeln('Координаты ',i,'-ой точки:',n[i].x,',',n[i].y);

   end

     else

       if n[1].s < n[2].s then

         writeln('Координаты ближайшей точки к окружности:',n[1].x,',',n[1].y)

           else

             writeln('Координаты ближайшей точки к окружности:',n[2].x,',',n[2].y)      

end.

Если мой ответ помог вам, отметьте его лучшим. Спасибо