Урок 11 Задание 13

Задание 13 Урок 11

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

program Hello;
var i,a,c1,c2,c3,c4,c5: integer;
begin
i:=0;
 begin
   writeln ('vvedite chislo');
   readln(a);
   while (i<5) do
    begin
      i:=i+1;
        begin
        if i=1 then
          begin
          c1:=(a mod 10);
          a:=(a div 10);
          end
        else if i=2 then
         begin
         c2:=(a mod 10);
         a:= a div 10;
         end
        else if i=3 then
         begin
         c3:=(a mod 10);
         a:= a div 10;
         end
        else if i=4 then
         begin
         c4:=(a mod 10);
         a:= a div 10;
         end
        else if i=5 then
         begin
         c5:=(a mod 10);
         a:= a div 10;
         end;
     end;
   end;
 end;
 writeln(c1,c2,c3,c4,c5);
end.