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