Pascal :

var
  n:string;
  i,sum,t,m:longint;
begin
  readln(n);
  if pos('GB',n)<>0 then
    begin
      t:=pos('GB',n);
      val(copy(n,1,t-1),m);
      sum:=m*1024*1024;write('Cheng',' ','xu',' ','you:',sum,' ','ti');
    end
    else if pos('MB',n)<>0 then
      begin
        t:=pos('MB',n);
      val(copy(n,1,t-1),m);
      sum:=m*1024;write('Cheng',' ','xu',' ','you:',sum,' ','ti');
      end
      else write('error');
   end.