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

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.