задача 13 урок 11

задача 13 урок 11

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

var i, a: integer;
begin
  writeln('vvedite 5znachnoe chislo: ');
  readln(a);
  writeln('perevorot chisla ');
  for i:=1 to 5 do
    begin
     write(a mod 10);
     a:=a div 10;
    end;
readln();
end.  

var i, a: integer;
begin
  i:=0;
  writeln('vvedite 5znachnoe chislo: ');
  readln(a);
  writeln('perevorot chisla ');
  while i<5 do
    begin
     i:=i+1;
     write(a mod 10);
     a:=a div 10;
    end;
readln();
end.