Дано трехзначное число. найти число, полученное при перестановке первой и последней цифр заданного числа. 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