sasuke @ 2016-07-02 20:49:04
var s0,s,ps:string;i,j,len:longint;a:array[1..10] of char;
**begin**
**readln(s0);**
**if s0='0' then begin writeln(s0);exit;end;**
**if s0[1]='-' then s:=copy(s0,2,length(s0)-1)**
**else s:=s0;**
**len:=length(s);**
**for i:=1 to len do a[len-i+1]:=s[i];**
**if s0[1]='-' then ps:='-';**
**for i:=1 to len do ps:=ps+a[i];**
**if a[1]='0' then delete(ps,2,1);**
**writeln(ps);**
**end.**********