function Re (z: Complex): Real;
Re extracts the real part of the complex number z.
Re is an ISO 10206 Extended Pascal extension.
program ReDemo;
var
z: Complex;
begin
z := Cmplx (1, 2);
WriteLn (Re (z) : 0 : 5)
end.