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