Найти число, образованное перестановкой первой и второй, третьей и четвертой цифр заданного числа - Pascal

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

2.44 В трехзначном числе зачеркнули его вторую цифру. Когда к образовавшемуся двузначному числу справа приписали вторую цифру числа x, то получилось число у. По заданному y найти число x. Значение y вводится с клавиатуры;99<y<1000 2.39 Дано четырехзначное число. Найти число, образованное перестановкой первой и второй, третьей и четвертой цифр заданного числа. Например, из числа 5434 получается 4543, из числа 7048 – 784

Решение задачи: «Найти число, образованное перестановкой первой и второй, третьей и четвертой цифр заданного числа»

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

var nz,n: integer;
 begin
  repeat begin
    write('Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г® --> '); readln(n);
    if (n<100) or (n>999) then
    writeln('Г—ГЁГ±Г«Г® Г¤Г®Г«Г¦Г*Г® ГЎГ»ГІГј ГІГ°ГҐГµГ§Г*Г*Г·Г*Г»Г¬. ГЏГ®ГЇГ°Г®ГЎГіГ©ГІГҐ ГҐГ№ГҐ Г°Г*Г§.');
   end;
  until (n>100) and (n<999);
  nz:= n div 10;
  nz:= nz mod 10;
  n:=((n div 100)*10 + (n mod 10))*10 + nz;
  writeln('ГЌГ®ГўГ®ГҐ Г·ГЁГ±Г«Г®: ',n);
  readln;
 end.

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

В данном коде происходит следующее:

В первой строке объявляются две переменные типа integer - n и nz.
Затем, в цикле while, происходит повторение следующего блока кода:
- Выводится сообщение с приглашением ввести число.
- Число считывается с помощью функции readln и сохраняется в переменной n.
- Проверяется, что число находится в диапазоне от 100 до 999. Если это условие не выполняется, выводится сообщение об ошибке и цикл продолжается.
Если число находится в диапазоне от 100 до 999, выполняется следующий блок кода:
- nz присваивается первая цифра числа, полученного путем деления n на 10.
- nz присваивается последняя цифра числа, полученного путем остатка от деления n на 10.
- n присваивается число, полученное путем умножения первой цифры числа на 10, сложения второй цифры числа и nz.
Выводится полученное число и программа ожидает ввода пользователя с помощью функции readln.