Дано натуральное четырехзначное число найти число , полученное перестановкой 2 и 3 цифр заданного числа. Составить в Pascal при помощи div и mod

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal:

program SwapDigits
va
number, digit1, digit2, digit3, digit4, swappedNumber: integer
begi
// Вводим исходное четырехзначное числ
write('Введите четырехзначное число: ')
readln(number)
// Выделяем отдельные цифры числ
digit1 := number div 1000
digit2 := (number div 100) mod 10
digit3 := (number div 10) mod 10
digit4 := number mod 10
// Переставляем 2 и 3 цифр
swappedNumber := digit1 * 1000 + digit3 * 100 + digit2 * 10 + digit4
// Выводим результа
writeln('Число с переставленными 2 и 3 цифрами: ', swappedNumber)
end.

При компиляции и запуске данной программы, пользователь должен ввести четырехзначное число, и программа выведет число, полученное путем перестановки второй и третьей цифры исходного числа.