Составить четырехзначное число - Pascal

Формулировка задачи:

Здравствуйте. Есть такая задача: "Дано двузначное число, составить четырехзначное в таком порядке:единицы,десятки,десятки,единицы". Буду сильно благодарен, если поможете решить. Спасибо.

Решение задачи: «Составить четырехзначное число»

Листинг программы

m:= (n mod 10)*1000 + (n div 10)*100 + n;

Объяснение кода листинга программы

Входная переменная n делится на 10 с помощью оператора div и результат сохраняется в переменной m.
Результат умножается на 1000 с помощью оператора mod.
Результат умножается на 100 с помощью оператора mul.
Результат прибавляется к предыдущему значению переменной m.
Результат сохраняется в переменной m.