Изменить порядок цифр - Pascal

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

дано какое то число, например 123456, как сделать чтобы оно стало 654321?

Решение задачи: «Изменить порядок цифр»

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

var ch:longint;
procedure pr_ch(var ch:longint);
var ch1:longint;
begin
  ch1:=0;
  while ch<>0 do
  begin
    ch1:=ch1*10+(ch mod 10);
    ch:=ch div 10;
  end;
  ch:=ch1;
end;
begin
  writeln('Введите чило');
  readln(ch);
  pr_ch(ch);
  writeln('Число наоборот ',ch);
end.

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

В данном коде представлена процедура изменения порядка цифр в числе, представленном в переменной ch.

Сначала объявляется переменная ch типа longint, которая будет использоваться для хранения исходного числа.
Затем объявляется процедура pr_ch, которая принимает переменную ch как параметр и использует ее для изменения порядка цифр.
Внутри процедуры объявляется вспомогательная переменная ch1, которая будет использоваться для хранения результата.
Затем в цикле while происходит деление исходного числа на 10 и остаток от деления сохраняется в переменной ch1. При этом значение переменной ch1 увеличивается на 10 умноженное на остаток от деления.
После окончания цикла, значение переменной ch1 будет содержать исходное число, представленное в обратном порядке.
Значение переменной ch присваивается значение переменной ch1.
Затем выводится сообщение с просьбой ввести число.
Введенное число считывается в переменную ch.
Вызывается процедура pr_ch, передавая ей в качестве параметра переменную ch.
Выводится сообщение с числом в обратном порядке. Таким образом, данный код позволяет изменить порядок цифр в числе, представленном в переменной ch.