为什么只有70分？

**var s,i,j:longint;a:string;**
**begin**
**read(a);**
**s:=length(a);**
**for i:=1 to 1 do**
**if a[i]='-' then write(a[i]);**
**for i:=s downto 1  do**
**begin**
**if a[i]='0' then continue ;
**if a[i]='-' then continue ;**
**write(a[i]);**
**end;**
**end.******