package ComplexCalculator is -- holds the records and fields for the numbers type ComplexNumber is record Real : Float; Imaginary : Float; end record; -- Defines the functions for calculations. function Add(First, Second : ComplexNumber) return ComplexNumber; function Sub(First, Second : ComplexNumber) return ComplexNumber; function Multiply(First, Second : ComplexNumber) return ComplexNumber; function Divide(First, Second : ComplexNumber) return ComplexNumber; end ComplexCalculator;