видоизменить сортировку вставкой. У меня есть такой код: var a: array[1..10000] of Word; i, j, t: LongInt; begin for i := 2 to n do begin t := a[i]; j := 1; while a[j] < t do Inc (j); { for k := i downto j + 1 do a[k] := a[k - 1]; } a[j] := t end. Так вот, нужно заменить закомментированную часть кода функцией Move

        '     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)