Какие характерные черты аполлона запечатлены в скульптуре

   '     1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).    
    
Dim a As Integer
Dim b As Integer  
Dim i As Integer    

a = InputBox("Введите а") 
b = InputBox("Введите b")
   
Dim msg As String      
msg = ""   
     
For i = a To b     
       msg = msg &  3 в степени " & i & " равно " & 3 ^ i & vbCrLf    
 Next    

MsgBox(msg)

2)Найти все делители числа 1204.   

Dim i As Integer       
Dim msg As String   
msg = ""      

For i = 1 To 1204  
          If 1204 Mod i = 0 Then      
                  msg = msg & "Число " & i & " является делителем 1204." & vbCrLf                  End If    
Next 
  MsgBox(msg)

а)  Рюкзак - специализированная сумка для длительной переноски на спине различных грузов. Он очень вместителен. Снаружи у рюкзака есть карманы, в которые можно положить какие-то мелкие вещи.
б) К началу учебного года мае купили новый рюкзак.  Он тёмно-синего цвета,  на кармане изображена кукла Парой.
Новый рюкзак мне сразу понравился. Он не только очень яркий и красивый, но и  вместительный. Внутри него два отделения. Туда можно положить учебники, тетради, дневник, пенал и альбом для рисования. Снаружи у рюкзака - большой карман, который застёгивается на молнию. В этот карман я кладу телефон, ключи от квартиры.
Рюкзак мне очень дорог. Он помогает мне каждый день переносить школьные принадлежности и все мои книги и тетради всегда в порядке!