//38 program test; var i:byte; begin for i:=0 to 15 do begin writeln( binstr(i,8) ); //2进制 writeln( octstr(i,8) ); //8进制 writeln( hexstr(i,8) ); //16进制 writeln; end; end.