Нужно составить программу к решению : "дано число n. перевернуть число".

Var
  n, m: longint;
begin
  m:=0;
  readln(n);
  while n > 0 do 
  begin
    m := m*10 + n mod 10;
    n := n div 10;
  end;
  writeln(m);
end.

Пример:
13804
40831

Var
  n, res, m: longint;
  s: string;

begin
  readln(n);
  while n <> 0 do
  begin
    m := n mod 10;
    s := s + (m.ToString);
    n := n div 10;
  end;
  res := s.ToInteger;
  writeln(res);
end.