with Text_io;
package body OBJECTS is
 
 
  function AREA(X:OBJECT) return float is
  begin
    case X.SHAPE is
      when CIRCLE=>return PI*X.RADIUS**2;
      when SQUARE=>return  X.SIDE**2;
      when RECTANGLE=>return  X.LENGTH * X.BREADTH; 
    end case;
  end AREA;
 
  function PERIMETER(X:OBJECT) return float is
  begin
    case X.SHAPE is
      when CIRCLE=>return 2.0*PI*X.RADIUS;
      when SQUARE=>return  4.0 * X.SIDE;
      when RECTANGLE=>return  2.0 * (X.LENGTH + X.BREADTH); 
    end case;
  end PERIMETER;
end OBJECTS;