Дано трехзначное число. Найти число, полученное при перестановке первой и последней цифр заданного числа. Pascal

var a,b:integer; begin write('A = '); readln(a); b:=(a mod 10*100)+(a div 10 mod 10*10)+(a div 100); writeln('b = ',b); end. Пример: A = 538 b = 835