Написать программу pascal, которая меняет местами последние две цифры в записи числа. Рассматриваются числа в диапазоне от m до n, причем m>99. Вывести на экран два столбика значений: первый - исходное число, второй - измененное.

program zz1;

var a, b, r, i, d, m, n:integer; / / задаем переменные целого типа

begin

write (' введите первое число m>99 '); / / вводим с клавиатуры первое число

read (m);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (n);

for i:=m to n do / / организуем цикл, в котором переберем все числа от m до n

begin

r:=i;

a:=r mod 10;

r:=r div 10;

b:=r mod 10;

r:=r div 10;

d: = (r * 10 + a) * 10 + b; / / формируем новое число

writeln (' исходное число ', i,' измененное ', d); / / выводим ответ

end;

end.