Программа, осуществляющая ввод координат трех точек на плоскости и выводящая сообщение, какая из них ближе к началу координат

function d(x,y:double):double;
begin
  Result:=sqrt(sqr(x)+sqr(y))
end;
 
var
  x1,x2,x3,y1,y2,y3,d1,d2,d3:double;
 
begin
  ReadLn(x1,y2,x2,y2,x3,y3);
  d1:=d(x1,y1);
  {...}
  if (d1<d2) and (d1<d3) then
    WriteLn('Это первая точка');
  {...}
end.

program nearest_point;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, math, sysutils
  { you can add units after this };
type
  TPoint = record
    x, y: single;
  end;
  T3Points = array[0..2] of TPoint;
 
  function distance(const aPoint: TPoint): single;
  begin
    Result:= sqrt(sqr(aPoint.x)+ sqr(aPoint.y));
  end;
 
  function minDistancePoint(const aPoints: T3Points): TPoint;
  var
    i: Integer;
  begin
     Result:= aPoints[0];
     for i:= 1 to High(aPoints) do
        if distance(aPoints[i]) < distance(Result) then
            Result:= aPoints[i];
  end;
var
  points: T3Points = ((x:15.5; y:1.0), (x:-12; y:1), (x:3.99; y:-1.5));
  minPoint: TPoint;
begin
  minPoint:= minDistancePoint(points);
  writeln(Format('The Nearest point is x=%f, y=%f', [minPoint.x, minPoint.y] ));
  readln;
end.