найдите числа 5значного числа и выведите их в обратном порядке


по типу того, как на картинке, решите, пожалуйста​

program raf105;

var X,a,b,c,d,e,Y:integer;

begin

write('Введите 5-ти значное число: ');

readln(X);

X:= abs(X);

a:= x div 10000;

b:= (x div 1000) mod 10;

c:= (x div 100) mod 10;

d:= (x div 10) mod 10;

e:= x mod 10;

Y:= a+b*10+c*100+d*1000+e*10000;

writeln('Перевёрнутое число: ',Y);

end.

Язык программирования PascalABC