信息学奥林匹克竞赛-数字反转

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

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

输入：123

输出：321

输入：-380

输出：-83

var
flag,n,sum:longint;

begin
readln(n);
flag:=1;
if n<0 then
begin
n:=n*(-1);
flag:=-1;
end;
sum:=0;
while n>0 do
begin
sum:=sum*10;
sum:=sum+n mod 10;
n:=n div 10;
end;
writeln(sum*flag);
end.