Даны три точки на плоскости. Определить, какая из них ближе к началу координат — Pascal(Паскаль)

{            Пример 1.3. Даны три точки на плоскости. Определить,
                         какая из них ближе к началу координат.

                                 Система тестов
           ╔═══════╦═════════════════════════════╦═══════════════╗
           ║ Номер ║           Данные            ║   Результат   ║
           ║ теста ╟────┬────┬────┬────┬────┬────╫───────────────╢
           ║       ║ xA │ yA │ xB │ yB │ xC │ yC ║     Otvet     ║
           ╠═══════╬════╪════╪════╪════╪════╪════╬═══════════════╣
           ║   1   ║  2 │  1 │  2 │  2 │ -1 │  3 ║ "Это точка А" ║
           ╟───────╫────┼────┼────┼────┼────┼────╫───────────────╢
           ║   2   ║  2 │  2 │  2 │  1 │ -1 │  3 ║ "Это точка В" ║
           ╟───────╫────┼────┼────┼────┼────┼────╫───────────────╢
           ║   3   ║  2 │  2 │ -1 │  3 │  2 │  1 ║ "Это точка С" ║
           ╚═══════╩════╧════╧════╧════╧════╧════╩═══════════════╝
}
 Program Points;
   Uses Crt;
   Var xA, yA, xB, yB, xC, yC, DistA, DistB, DistC : Real;
 BEGIN ClrScr;
   WriteLn('Введите координаты точки А:');
   Write('x = '); ReadLn(xA);
   Write('y = '); ReadLn(yA);
   WriteLn('Введите координаты точки B:');
   Write('x = '); ReadLn(xB);
   Write('y = '); ReadLn(yB);
   WriteLn('Введите координаты точки C:');
   Write('x = '); ReadLn(xC);
   Write('y = '); ReadLn(yC);

   WriteLn; Write('Ответ : ');
   DistA := sqrt(sqr(xA) + sqr(yA));
   DistB := sqrt(sqr(xB) + sqr(yB));
   DistC := sqrt(sqr(xC) + sqr(yC));
   If ( DistA < DistB) and (DistA < DistC)
      then WriteLn( 'Это точка А.')
      else If (DistB < DistC)
              then WriteLn('Это точка B.')
              else WriteLn('Это точка C.');
   ReadLn
 END.