procedure humanize(size: QWord);
var
    c: char;
begin
    for c in 'BKMGT' do
      begin
        if (size shr 10 = 0) or (c = 'T') then break;
        size := size shr 10;
      end;
    Writeln(size, c);
end;

begin
	humanize(42);
	humanize(1024 * 1024);
	humanize(8192);
	humanize(QWord (1073741824) * 4);
	humanize(High(QWord));
end.