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.