Определить номера точек, которые могут являться вершинами равнобедренного треугольника (Паскаль)

[Dangersss]

Всем привет. Прошу помочь с задачей, т.к. сам решить не могу:

Определить номера точек, которые могут являться вершинами равнобедренного треугольника.

Надо вводить n точек и их координаты (x и y). Я это делаю через два двумерных массива.
Листинг показать не могу, т.к. пишу программу в колледже.
Формула нахождения растояния между прямыми:

d^2 = (х2— х1)^2 + (y2— y1)^2.

Я вообще незнаю как её решать
Надеюсь на Вашу помощь
Спасибо!

[IT-man]

Надо вводить n точек и их координаты (x и y). Я это делаю через два двумерных массива.

и теперь тупо перебор

 for i:=1 to n-2 do
 for j:=i+1 to n-1 do
 for k:=j+1 to n do
{у тя 3 точки {x[i],y[i]} {x[j],y[j]}, {x[k],y[k]}ищи между ними  расстояния и сравнивай если два из них равны выписывай i,j,k}

[Dangersss]

Сообщение от IT-man

и теперь тупо перебор

 for i:=1 to n-2 do
 for j:=i+1 to n-1 do
 for k:=j+1 to n do
{у тя 3 точки {x[i],y[i]} {x[j],y[j]}, {x[k],y[k]}ищи между ними  расстояния и сравнивай если два из них равны выписывай i,j,k}

Я плохо понимаю двумерные массивы, можете, пожалуйста, подробней расписать?)

[TinMan]

Тут совершенно не нужны двумерные массивы. Тут нужны два одномерных массива (или один массив записей). Вот, я продолжу то, что написал IT-man:

const
  e= 1e-7;
var
  x,y: array[1..n] of integer;  // or maybe real..
  a,b,c: real;
.....
  // enter points coordinats here

  for i:=1 to n-2 do
    for j:=i+1 to n-1 do
      for k:=j+1 to n do begin
        a:= Sqrt(Sqr(x[i]-x[j]) + Sqr(y[i]-y[j]));
        b:= Sqrt(Sqr(x[j]-x[k]) + Sqr(y[j]-y[k]));
        c:= Sqrt(Sqr(x[k]-x[i]) + Sqr(y[k]-y[i]));
        if (Abs(a-b)<e) or (Abs(b-c)<e) or (Abs(c-a)<e) then
          writeln('points numbered as ',i,', ',j,', ',k,' define an isosceles triangle');
      end;