package ComplexCalculator is --Defines that a complex number has two fields. type ComplexNumber is record Real : Integer; Imaginary : Integer; end record; -- Defines the available functions. 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; function ToString(Number : ComplexNumber) return String; end ComplexCalculator;