codevs 数字反转 1130

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

输入描述 Input Description
输入共 1 行，一个整数N

输出描述 Output Description
输出共 1 行，一个整数，表示反转后的新数。

样例输入 Sample Input

-380

样例输出 Sample Output
-83

代码：

var

  s:ansistring;

  j,i:longint;

procedure init;

begin

  readln(s);

end;

procedure print;

begin

  if s[1]='-' then begin delete(s,1,1);write('-');end;

  while (s[length(s)]='0') do delete(s,length(s),1);

  for i:=length(s) downto 1 do

    write(s[i]);

end;

begin

  init;

  print;

end.