На плоскости заданы координаты трёх точек — вершины треугольника. Определить, равносторонним, равнобедренным или разносторонним является треугольник — Pascal(Паскаль)

program rect;

var
  x1, x2, x3, y1, y2, y3: integer;
  l1, l2, l3: real;
  k: byte;

begin
  k := 0;
  // здесь пишешь блок ввода координат вершин (x1,y1)и т.д.
  l1 := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
  l2 := sqrt(sqr(x1 - x3) + sqr(y1 - y3));
  l3 := sqrt(sqr(x2 - x3) + sqr(y2 - y3));
  if l1 = l2 then
    inc(k);
  if l1 = l3 then
    inc(k);
  if l2 = l3 then
    inc(k);
  case k of
    0:
      write('Неравносторонний');
    1:
      write('Равнобедренный');
    3:
      write('Равносторонний');
  end;

end.