Помогите найти ошибку в задаче ( delphi )

Question

Writeln('vvedite koordinati vershin'); 
 Readln(x1,y1,x2,y2,x3,y3); 
 d1:=Sqrt(sqr(x2-x1)+sqr(y2-y1)); 
 d2:=Sqrt(Sqr(x3-x1)+sqr(y3-y1)); 
 d3:=Sqrt(Sqr(x3-x2)+sqr(y3-y2)); 
 t:=0; 
 
If (d1*d1=d2*d2+d3*d3) or (d2*d2=d1*d1+d3*d3) or (d3*d3=d2*d2+d1*d1) 
then begin 
 Writeln('verhsini zadani korrektno'); t:=1 
 end 
else Writeln('vershini zadani ne korrektno');

Serik · Accepted Answer

У чисел с плавающей запятой есть предельная точность. sqr(sqrt(x)) может быть немного больше или меньше x. Поэтому сравнивай с какой-то точностью (а еще лучше - не считай корни, точность только возрастет) : 
d1sq=sqr(x2-x1)+sqr(y2-y1);{квадрат первой стороны} 
d2sq=...; 
d3sq=...; 
eps:=0.000001; 
if (abs(d1sq-d2sq-d3sq)< eps ) or ...