Определить является ли фигура равносторонним треугольником?

[Alexsssandr]

Водятся координаты трех точек на плоскости, определить является ли полученная фигура равносторонним треугольником.

[Манжосов Денис :)]

a: array [1..3, 1..2] of integer;
i: integer;
begin
for i := 1 to 3 do
  begin
   Write('x = ');
   ReadLn(a[i,1]);
   Write('y = ');
   ReadLn(a[i,2]);
  end;
if Abs(Sqrt(Sqr(a[2,1] - a[1,1]) + Sqr(a[2,2] - a[1,2]))) =    
   Abs(Sqrt(Sqr(a[3,1] - a[2,1]) + Sqr(a[2,2] - a[1,2]))) then
if Abs(Sqrt(Sqr(a[3,1] - a[1,1]) + Sqr(a[3,2] - a[1,2]))) = 
  Abs(Sqrt(Sqr(a[2,1] - a[1,1]) + Sqr(a[2,2] - a[1,2]))) then 
WriteLn('Треугольник равносторонний'); 
end;

[Alexsssandr]

Спасибо огромное)