program Program2;
uses crt;
 
var x, km, m, sisa : LongInt;
 
BEGIN
  write('Input nilai x (cm) : '); readln(x);
 
  km := x div 100000;
  sisa := x mod 100000;
  m := sisa div 100;
  sisa := sisa mod 100;
 
  writeln('Hasil: ', km, ' km ', m, ' m ', sisa, ' cm');
END.