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

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.Тестовое решение:Введите трехзначное число 456654