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