2. Дана масса M в килограммах. Используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг).
Var m: integer; begin readln(m); write (m,' кг содержит ', m div 1000, ' полных тонн'); end.