Дано трехзначное число. получить число, образуемое при перестановке его цифр в обратном порядке. записать ответ для числа 426

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 = 426
b = 624

642