Целочисленное деление в Паскале

Задача
Дано двузначное число. Нужно найти число десятков в нем.

Решение:
Чтобы найти количество десятков (сотен, тысяч и пр.) нужно разделить исходное число на десять (сто, тысячу и пр.) нацело.
Пример:
25/10=2(2 десятка)
689/100=6(6 сотен)
В Паскале для целочисленного деления применяют оператор DIV

25 div 10 =2
689 div 10 =68
В общем виде: m div n — целая часть от деленя m на n
program des;
var n:integer;
Begin
readln(n);
writeln(n div 10 ,'десятков в числе');
End.

Задача
Дана масса тела в килограммах. Составить программу перевода массы в тонны и килограммы.

Решение:
В 1 тонне 1000 килограмм, то есть чтобы отделить количество тонн нужно нацело разделить число на 1000.
Однако, нам необходимо найти и количество килограмм в остатке, то есть нам нужен еще и остаток от целочисленного деления.
Пример:
6894/1000= 6 тонн и 894 килограмм
589/1000= 0 тонн и 589 килограмм
В Паскале для определения остатка от целочисленного деления применяют оператор MOD

25 mod 10 =5
689 mod 100 =89
В общем виде: m mod n — остаток от деленя m на n
program tonna;
var n:integer;
Begin
readln(n);
writeln(n div 1000 ,'тонн и ', n mod 1000, ' килограмм');
End.