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

11. While

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

var a,b : integer;
begin
writeln('write five-digit number');
readln(a);
while ((a mod 10) <> 0)  do
begin
  b:= a mod 10;
  a:= a div 10;
  write(b);
end;
readln();
end.