Задача 13 Урок 11

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541
(используйте опеции div и mod, подразумевается решение через цикл )

var i,a,b:integer;
begin
  writeln('Vvedite 5-znachnoe chislo: ');
  readln(a);
  for i:=1 to 5 do
  begin
     b:=a mod 10;
     write(b);
     a:=a div 10;
  end;

end.

Консоль:

Vvedite 5-znachnoe chislo: 
90001
10009