integer a,b,c 2 read*,a,b c=0 if(mod(mod(a,100),11)>0)c=1 print*,c*b/100+(1-c)*mod(a,10) goto 2 end