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

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

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

var k, a, i: integer;
  begin
    i:=0;
    k:=0;
    a:=1;
    while a>0 do
      begin
        if (i=0) then
          begin
          writeln('vvedite chislo iz 5 znakov');
          readln(a);
          end;
        k:=k*10+(a mod 10);
        a:=a div 10;
        i:=i+1;
        if ((a=0) and not(i=5)) then
          begin
            a:=1;
            i:=0;
            k:=0;
          end;
      end;
  writeln(k);
  readln();

  end.