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

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