Введя с клавиатуры 3-значное число, получить и вывести на экран новое число, поменяв местами разряды десятков и единиц

Var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.

Пример:
a = 123
b = 132