program z
integer::a,b
do i=1,32
read *,a,b
if (mod(mod(a,100),11)==0) then
print*, mod(a,10)
else
print*, b/100
end if
end do
end program z