Дано трехзначное число. Найти число, полученное при прочтении его цифр справа налево. (123 321) (программа Паскаль)

Program z8;
Var n, a1, a2, a3, n1: Integer;
Begin
Writeln (‘Введи число’);
Readln (n);
a1:= n div 100  ;
a2:= n div 10 mod 10;
a3:= n mod 10;
n1:= a3*100+ a2*10+a1;
Writeln (‘новое число’, n1);
Readln;
End