Даны координаты вершин треугольника ABC A(x1;y1), B(x2;y2), C(x3;y3) является ли треугольник равнобедренным — Pascal(Паскаль)

Uses Crt;

Var
  x1, x2, x3, y1, y2, y3, a, b, c: real;

Begin
  ClrScr;
  write('x1=');
  Readln(x1);
  write('y1=');
  Readln(y1);
  write('x2=');
  Readln(x2);
  write('y2=');
  Readln(y2);
  Write('x3=');
  Readln(x3);
  write('y3=');
  Readln(y3);
  a := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
  b := sqrt(sqr(x2 - x3) + sqr(y2 - y3));
  c := sqrt(sqr(x1 - x3) + sqr(y1 - y3));
  If (a = b) or (a = c) or (b = c) Then
    Write('равнобедренный')
  Else
    Write('не равнобедренный');
  Readln;

End.