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.