При загрузке формы комбинированный список заполняется числами от 1 до 10. по щелчку по комбинированному списку нижний список заполняется таблицей умножения числами от 1 до 10 на выбранное число. vba

Const n=12; var a: array[1..n] of integer; i,s: integer;   begin randomize; writeln('массив a: '); for i: =1 to n do a[i]: =random(101); a[random(n)+1]: =100; for i: =1 to n do write(a[i]: 4); writeln; s: =0; i: =1; while a[i]< > 100 do   begin s: =s+a[i]; i: =i+1; end; writeln('номер элемента = 100: ',i); writeln('s = ',s); end. пример: массив a:   76   40   46   50 100   96   86   29   4   13   80   98 номер элемента = 100: 5 s = 212

Const     n = 12; var     k: array[1..n] of integer;     i: integer;     s: real; begin write('введите массив k(',n,'): '); for i: = 1 to n do       read(k[i]); s: =0; i: =1; if k[i] = 100 then     write('перед массивом со значением 100 нет элементов.') else     begin     while k[i]< > 100 do           begin           s: =s+k[i];           i: =i+1;           end;     writeln('номер элемента со значением 100: ',i);     write('искомая сумма: ',s);     end; end.