记录编号	86669	评测结果	AAAAAAAAAA
题目名称	[NOIP 2011]数字反转	最终得分	100
用户昵称	传奇	是否通过	通过
代码语言	Pascal	运行时间	0.069 s
提交时间	2014-01-27 15:45:34	内存使用	0.15 MiB

program fanzhuan;
var
   shu,wei,i,j:longint;
   a:array[1..100] of longint;
begin
   assign(input,'reverse.in');
   assign(output,'reverse.out');
   reset(input);
   rewrite(output);
 
   readln(shu);
   if shu<0 then
     begin
	    write('-');
	    shu:=abs(shu);
	 end;
	
   wei:=0;
   while shu<>0 do
     begin
       inc(wei);
       a[wei]:=shu mod 10;
       shu:=shu div 10;
     end;
 
   for i:=1 to wei do
     if a[i]<>0 then
      break;
  for  j:=i to wei do
    write(a[j]);
 
   close(output);
   close(input);
end.