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

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