type Internal_Complex = record { not visible } RealPart, ImaginaryPart: Real end; Complex = restricted Internal_Complex;
Complex is an ISO 10206 Extended Pascal extension.
program ComplexDemo; var a: Complex; begin a := Cmplx (42, 3); WriteLn (Re (a), ' + ', Im (a), ' i') end.