1 read*,i,j l=mod(i,10) print*,min(mod(i-i/99,11),1)*(j/99-l)+l goto1;end