Помогите пожалуйста .
Дано пятизначное число N.Составьте программу получения нового числа, в котором цифры будут идти в обратном порядке.(без цикла)

var a1, a2, a3, a4, a5, n: integer;begin readln(n); a1 := n mod 10; a2 := n div 10 mod 10; a3 := n div 100 mod 10; a4 := n div 1000 mod 10; a5 := n div 10000 mod 10; writeln(10000 * a1 + 1000 * a2 + 100 * a3 + 10 * a4 + a5);end.