给定一个整数，请将该数各个位上数字反转得到一个新数。新数也应满足整数的常见形 式，即除非给定的原数为

var n:longint;
begin
readln(n);
if n<0 then
write('-');
n:=abs(n);
if n=0 then write(0) else begin

while (n mod 10=0) do n:=n div 10;
while n>0 do begin

write(n mod 10);
n:=n div 10;
end;
end;
end.

var n:int64;
chr:longint;
begin
readln(n);
if n<0 then
write('-');
n:=abs(n);
if n=0 then write(0) else
begin
while n>0 do
begin
chr:=(chr*10)+(n mod 10);

begin
n:=n div 10;
end;
end;
end;
writeln(chr);
end.

汗。 就是没学过pascal。