Дано трехзначное число получить новой число полученное при прочтени его цисел с права налево

Var
  a,b:integer;
begin
  write('Введите трехзначное число ');
  readln(a);
  b:=(a mod 10)*100 +((a div 10)mod 10)*10 + a div 100;
  writeln(b);
end.

Тестовое решение:
Введите трехзначное число 456
654