geometry.ads (Источник)

WITH Ada.Text_Io;
PACKAGE Geometry IS
   TYPE Indextype IS MOD 3;
   PACKAGE Index_Io IS NEW Ada.Text_Io.Modular_Io (Num => Indextype);
   TYPE Point IS RECORD
      X, Y  : FLOAT   := 0.0;
      Index : INTEGER := 0;
   END RECORD;
   FUNCTION Get_Distance (M, N : POINT) RETURN FLOAT;
   PROCEDURE Put (P : POINT);
END Geometry;