Информатика. блок схема. решить здесь в i что-то не то, не могу понять, исправить

1а) влажность > 90   осадки < > дождь б) автор < > толстой л. н. год < 1990 в) = 2 7 а) температура > 0 (ложь) осадки = 0 (истина) б) год = 1982 (истина) полка < 5 (истина) в) геология (ложь) фамилия = шляпина (истина) 8 а) фамилия < > семенов б) геология в) день < 5/05/1989 г) день < = 23/09/1996 д) < > 5 е) автор = беляев а.р. ж) год < 1990 з) полка > =3 9 а) . выбрать ученик где фамилия < > семенов б) . выбрать ученик где факультатив = геология в) . выбрать день < 5/05/1989 г) . выбрать день < = 23/09/1996 д) . выбрать ученик где < > 5 е) . выбрать автор = беляев а.р. ж) . выбрать книга где год < 1990 з) . выбрать книга где полка > =3

  dim i as integer         dim msg as string        dim n as integer          n = cint(inputbox("введите n"))          for i = 10 to 99            if cstr(i).indexof(n) > -1 or i mod n = 0 then                 msg = msg & i & vbcrlf            end if          next           msgbox(msg)