Задачи по Делфи

[demon_laplasa]

не знаю, куда писать, по-этому создам тему)
можете ее удалить после использования)
procedure TForm1.Button1Click(Sender: TObject);
var
x1, x2, x3, y1, y2, y3: integer;
d1, d2, d3: real;



begin
x1:= StrToInt(Edit1.Text);
y1:= StrToInt(Edit2.Text);
x2:= StrToInt(Edit3.Text);
y2:= StrToInt(Edit4.Text);
x3:= StrToInt(Edit5.Text);
y3:= StrToInt(Edit6.Text);

d1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
d2:=sqrt(sqr(x2-x3)+sqr(y2-y3));
d3:=sqrt(sqr(x3-x1)+sqr(y3-y1));
if (d1>d2+d3) or (d2>d3+d1) or (d3>d2+d1) then Label7.Caption:= 'трикутника не існує'
else
if (d1=d2=d3) then Label7.Caption:= 'трикутник рівносторонній' else
if (d1=d2) or (d2=d3) or (d3=d1) then Label7.Caption:= 'трикутник рівнобедрений'
else if (d1=sqrt(sqr(d2)+ sqr(d3))) or (d2=sqrt(sqr(d1)+ sqr(d3))) or (d3=sqrt(sqr(d1)+ sqr(d2))) then Label7.Caption:='трикутник прямокутний'
else Label7.Caption:= 'довільний трикутник';
end;


end.

воть такой код
в строке if (d1=d2=d3) then Label7.Caption:= 'трикутник рівносторонній' выбивает ошибку Incompatible types
что поправить?

[Niro]

Не

if (d1=d2=d3)

А

if (d1=d2) and (d2=d3) then