Введите целое число, состоящее не более чем из пяти цифр. Выведите число, состоящие из цифр исходного, записанных в обратном порядке — Pascal(Паскаль)

Program PascalGuru;

var
  cislo: longint;

begin
  Write('Vvedite chislo: ');
  ReadLn(cislo);
  writeln;

  while cislo <> 0 do
  begin
    if cislo > 0 then
      write(cislo mod 10);
    cislo := cislo div 10
  end;

  ReadLn;

end.