複素数の計算（a+jb+c+jd; a,b,c,d:real)の出力が1.23-0jとなります。1.23と出力する方法を教えてください。＃配列ではありません。