{Andrey Sharov } { e-mail : ansharov@one.lv } { website: www.borlpasc.narod.ru } {Определить номера самых удаленных друг от дркгп точек и наименее удаленных друг от друга точек} program borlpasc; var a:array [1..200] of real; i,j,k,l,n,mi,mj,ni,nj:integer;min,max:real; p,q:boolean; function xt(i:integer):real; {координаты по номеру точки} begin xt:=a[2*i-1] end; function yt(i:integer):real; begin yt:=a[2*i] end; function dl(i,j:integer):real; {длина отрезка между двумя точками} begin dl:=sqrt(sqr(xt(i)-xt(j))+sqr(yt(i)-yt(j))) end; begin write('введите кол точек n='); readln(n); for i:=1 to n do begin write('x[',i,']='); readln(a[2*i-1]); write('y[',i,']='); readln(a[2*i]) end; q:=true; max:=dl(1,2); mi:=1; mj:=2; min:=dl(1,2); ni:=1; nj:=2; for i:=1 to n-1 do for j:=i+1 to n do begin if max