В 4-х значном числе поменять цифры местами - Pascal

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

Составить программу которая в 4-х значном числе меняет местами 1 и 2 цифры,3 и 4. Пример:1234=2143

Решение задачи: «В 4-х значном числе поменять цифры местами»

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

var n:integer;
begin
write('n=');
readln(n);
n:=1000*(n div 100 mod 10)+100*(n div 1000)+10*(n mod 10)+n div 10 mod 10;
write(n);
end.

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

Этот код написан на языке Pascal и выполняет следующую задачу: он принимает четырехзначное число от пользователя, затем меняет его цифры местами и выводит результат. Вот как это работает:

var n: integer; - объявляется переменная n типа integer. Она будет использоваться для хранения числа, которое вводит пользователь.
write('n='); - выводится сообщение n= для привлечения внимания пользователя.
readln(n); - считывается число от пользователя. Это значение сохраняется в переменной n.
n:=1000*(n div 100 mod 10)+100*(n div 1000)+10*(n mod 10)+n div 10 mod 10; - это сложный математический расчет, который меняет порядок цифр в числе n. Результат этого выражения присваивается переменной n.
write(n); - выводится значение n, которое теперь содержит переставленное число.