Даны две точки на плоскости . Определите какая из них находится ближе к началу координат

procedure TForm1.Button1Click(Sender: TObject); var   x1,y1,x2,y2 : double;   d1,d2 : double; begin   x1:= StrToFloat( Edit1.Text);   y1:= StrToFloat( Edit2.Text);   x2:= StrToFloat( Edit3.Text);   y2:= StrToFloat( Edit4.Text);   d1:=Sqrt(x1*x1+y1*y1);  //Теорема Пифагора   d2:=Sqrt(x2*x2+y2*y2);  //Теорема Пифагора   if (d1d2) then       Label1.Caption := 'Ближе точка с координатами X2,Y2'     else       Label1.Caption := 'Точки находятся на одинаковом расстоянии' end; Для увеличения быстродействия алгоритма можно d1 и d2 рассчитывать так:  d1:= x1*x1+y1*y1; d2:= x2*x2+y2*y2;