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