program t implicit none character(21)::S read*,S S=trim(S)//"0" print"(A)",merge("0",trim(S),trim(S)=="00") end program t