program tachso;
var
  n, hangtram, hangtrieu: integer;
begin
  // Nhập số n cần tách
  write('Nhap so n: '); readln(n);

  // Tách chữ số hàng trăm
  hangtram := n mod 100;
  writeln('Chu so hang tram: ', hangtram);

  // Tách chữ số hàng triệu
  hangtrieu := n div 1000000;
  writeln('Chu so hang trieu: ', hangtrieu);
  
  readln;
end.