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

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

var
  a,f:integer;
  begin
    writeln('Vvedite chiso iz 5 znakov: ');
    readln(f);
    writeln();
    writeln('f=',f);
    writeln('Cifry v obratnom poryadke:');
    while (f>0) do
      begin
        a:=f mod 10;
        //writeln('f=',f);
        write (a);
        f:=f div 10;
      end;

    readln();

    end. 

Консоль

Vvedite chiso iz 5 znakov:
26038

f=26038
Cifry v obratnom poryadke:
83062