Вывести число, полученное при прочтении исходного числа справа налево - Turbo Pascal

  var
    n: integer;
begin
  write('vvedite chilo: ');
  repeat
    readln(n);
  until (n>=100)and(n<=999);
  writeln('chilo naoborot:');
  write(n mod 10);
  write(n div 10 mod 10);
  write(n div 100);
  readln;
end.