Определить ближайщую к началу координат точку

[Joker<777>]

Определить ближайщую к началу координат точку плоскости из трех заданных

[Mad_Cat]

та у которой sqrt(x^2+y^2) меньше та и ближе)

[_-Re@l-_]

Можно, конечно, так:

Uses CRT;
Type
       Point = packed record
       x,y:Integer;
End;
Var A,B,C:Point;
     L1,L2,L3:Real;
     
Begin
        Write('Enter x1 and y1:');
        Readln(A.X,A.Y);
        Write('Enter x2 and y2:');
        Readln(B.X,B.Y);
        Write('Enter x3 and y3:');
        Readln(C.X,C.Y);
        L1:=sqrt(sqr(A.X)+sqr(A.Y));
        L2:=sqrt(sqr(B.X)+sqr(B.Y));
        L3:=sqrt(sqr(C.X)+sqr(C.Y));
        If (L1<L2) And (L1<L3) Then Write('First!');
        If (L2<L1) And (L2<L3) Then Write('Second!');
        If (L3<L1) And (L3<L2) Then Write('Third!');
        Readln;
End.

Хотя, конечно, можно и так, но первый способ более красивый:

Uses CRT;
Var 
     X1,X2,X3:Integer;
     Y1,Y2,Y3:Integer;
     L1,L2,L3:Real;
Begin
        Write('Enter x1 and y1:');
        Readln(X1,Y1);
        Write('Enter x2 and y2:');
        Readln(X2,Y2);
        Write('Enter x3 and y3:');
        Readln(X3,Y3);
        L1:=sqrt(sqr(X1)+sqr(Y1));
        L2:=sqrt(sqr(X2)+sqr(Y2));
        L3:=sqrt(sqr(X3)+sqr(Y3));
        If (L1<L2) And (L1<L3) Then Write('First!');
        If (L2<L1) And (L2<L3) Then Write('Second!');
        If (L3<L1) And (L3<L2) Then Write('Third!');
        Readln;
End.