package OBJECTS is
  type FIGURE is (CIRCLE, SQUARE, RECTANGLE);
 
  type OBJECT(SHAPE:FIGURE:=CIRCLE) is
  record
    case SHAPE is
      when CIRCLE=>RADIUS:float;
      when SQUARE=> SIDE: float;
      when RECTANGLE=> LENGTH, BREADTH: float;
    end case;
  end record;
 
  PI:constant:=3.14159;
  function AREA(X:OBJECT) return float;
  function PERIMETER(X:OBJECT) return float;
end OBJECTS;