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.