Составьте программу,которая вводит трехзначное число и выводит число, образованное при перестановке цифр в обратном порядке (например: 123-321). в паскале. ! заранее!

Var a,b:integer;
begin
readln(a);
b:=(a mod 10)*100;
b:=b+(a mod 100)-(a mod 10);
b:=b+(a div 100);
writeln(b);
readln;
end.