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

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

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

program Lesson13;
var a,b,c,d,i: integer;
begin
  writeln('vvedite celoe 5-i znachnoe chislo:');
  readln(a);
  i:=1;
  c:=10;
  while (i<=5) do
  begin
    b:=a mod c;
    d:=b div (c div 10);
    i:=i+1;
    c:=c*10;
    write(d);
  end;
readln();
end.