По заданному трехзначному числу вывести на экран число состоящее из этих цифр, но в обратном порядке в паскале с решением

var
  a: integer;

begin
  readln(a);
  writeln(a mod 10, a div 10 mod 10, a div 100);
end.