паскаль

[евгения,]

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

[Трофимов Александр]

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.
Двум значение не может равняться так как если а=б и б=с то а=с.