Три точки на плоскости заданы координатами, определить, существует ли треугольник с такими вершинами (использовать тип record для описания
координат). Нужно написать в Delphi 7

double d1=x1*x1+y1*y1;

double d2=x2*x2+y2*y2;

double d3=x3*x3+y3*y3;

if(d1<d2 && d1<d3)cout<<x1<<','<<y1<<endl;

else if(d3<d2 && d3<d1)cout<<x3<<','<<y3<<endl;

else cout<<x2<<','<<y2<<endl;

Объяснение: