Pascal :

var a:string; b,c,d:integer;
begin
  read(a);
  read(b,c,d);
  write(a, ' ' ,b, ' ' ,c,'CM', ' ' ,d,'Kg');
end.