数字反转

题目描述
给定一个整数，请将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形式，即除非给定的原数为零，否则反转后得到的新数的最高位数字不应为零（参见样例2）。

输入输出格式
输入格式：
输入文件名为reverse.in 。
输入共1 行，一个整数 N。

输出格式：
输出文件名为reverse.out 。
输出共1行，一个整数，表示反转后的新数。

输入输出样例
输入样例#1：
123
输出样例#1：
321
输入样例#2：
-380
输出样例#2：
-83

说明
数据范围
-1,000,000,000≤ N≤ 1,000,000,000 。
用一个字符串输入，再倒过来输出。（要注意负数的判断）

---

var
  i,j,n,m:longint;
  s:string;
begin
  readln(s);
  j:=length(s);
  m:=1;
  if s[1]='-' then
  begin
    m:=2;
    write('-');
  end;
  while  s[j]='0' do dec(j);
  for i:=j downto m do
    write(s[i]);
end.