Yurttas/PL/IL/Ada-95/OO/GEO/geometry-squares.adb

 1package body Geometry.Squares is
 2
 3  function Area(S : Square) return Float is
 4  begin
 5    return S.Side**2;
 6  end Area;
 7
 8  function MI(S : Square) return Float is
 9  begin
10    return Area(S) * S.Side**2 / 6.0;
11  end MI;
12
13  function Name(S : Square) return String_8 is
14  begin
15    return "Square  ";
16  end Name;
17
18end Geometry.Squares;