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

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

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

var a,b,c: integer;
begin
     write('vvedite pyatizna4noe 4islo - ');
     readln(c);
     if (c >= 10000) and (c <= 99999) then
       begin
         a := c;
         if a > 0 then
           begin
             b := b * 10 + a mod 10;
             a := a div 10;
           end;
         if a > 0 then
           begin
             b := b * 10 + a mod 10;
             a := a div 10;
           end;
         if a > 0 then
           begin
             b := b * 10 + a mod 10;
             a := a div 10;
           end;
         if a > 0 then
           begin
             b := b * 10 + a mod 10;
             a := a div 10;
           end;
         if a > 0 then
           begin
             b := b * 10 + a mod 10;
             a := a div 10;
           end;
         writeln('vvedennoe 4islo - ',c);
         write('perevorot 4isla - ',b)
           end
         else
           begin
           writeln('4islo ne pyatiznachnoe!');
           writeln('vvedennoe 4islo - ',c);
           end;
    readln();
end.  

ну... можно было и облегчить себе жизнь:

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