profile="http://gmpg.org/xfn/11"> Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа в Паскале. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа в Паскале.

Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа в Паскале.
Используем div и mod. Пример:
Исходное число 45:
Число1 = 4, получаем от 45 div 10
Число2 = 5, получаем от 45 mod 10
Перестановка =Число2*10 + Число1=5*10+4=54

program Per_Num1_Num2_Task;
  // Дано двузначное число. Вывести число, полученное
  // при перестановке цифр исходного числа.
var
  i_NUm, i_NUm1, i_NUm2: integer;
  i_PerNUm: integer;
begin
  WriteLn('Ввод двузначного числа:');
  ReadLn(i_NUm);
  i_NUm1 := i_NUm div 10;
  i_NUm2 := i_NUm mod 10;
  i_PerNUm := i_NUm2 * 10 + i_NUm1;
  // Вывод чисел на экран
  Writeln('Исходное число: ', i_NUm, ', первая цифра: ',
    i_NUm1, ', вторая цифра: ', i_NUm2);
  // вывод: перестановка цифр двузначного числа
  Writeln('Перестановка цифр: ', i_PerNUm);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Вывести число, полученное при перестановке цифр исходного числа в Паскале
Вывести число, полученное при перестановке цифр исходного числа в Паскале.

Комментарии запрещены.