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

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

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

46541

(используйте опеции div и mod, подразумевается решение через цикл )

program programma13;
var i,a1,a2,a3,a4,a5,b,a : integer;
begin
  a1:=0; a2:=0; a3:=0; a4:=0; a5:=0;
  writeln('Vvedite pyatiznachnoe chislo:');
  readln(a);
   while i<5 do
   begin
    b:=a mod 10;
     if a1 = 0 then
      a1:=b
     else
       if a2 = 0 then
        a2:=b
       else
         if a3 = 0 then
          a3:=b
         else
           if a4 = 0 then
             a4:=b
           else
             a5:=b;
  a:=a div 10;
  i:=i+1;
  end;
  writeln((a1*10000)+a2*1000+a3*100+a4*10+a5);
 readln();
end.