program IEEEBITS { BP7, D3 ; J R Stockton } ;

function Bin(X, k : word) : string ;
var J : integer ; St : string ;
begin St := '' ;
for J := 1 to k do begin
  St := char(48+Ord(Odd(X))) + St ; X := X div 2 end ;
  Bin := St end ;

type TBA = array[1..4] of byte ; TWA = array[1..4] of word ;
var S : Single ; D : Double ; BA : TBA ; WA : TWA ; J : integer ;

BEGIN ;
Val(ParamStr(1), D, J) ;
if J<>0 then begin
  Writeln('IEEEBITS number ; (c) www.merlyn.demon.co.uk >= 2005-06-12') ;
  HALT(1) end ;
Writeln('Number:', D) ;
S := D ;
BA := TBA(S) ; Write('Single:') ;
for J := 4 downto 1 do write(' ', Bin(BA[J], 8)) ;
Writeln ;
WA := TWA(D) ; Write('Double:') ;
for J := 4 downto 1 do write(' ', Bin(WA[J], 16)) ;
Writeln(^M^J) ;

END.