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.