Нужен готовый код к каждому вопросу, (vba) ​

// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin   var s1: =readlnstring('первое слово: ');   var s2: =readlnstring('второе слово: ');   // #1   writeln(' 1) ',s1.length> s2.length? s1: s2);   // #2   if s1[1]=s1[2] then writeln(' 2) ',s1);   if s2[1]=s2[2] then writeln(' 2) ',s2);   // #3   write(' 3) более короткое слово ');   // предполагаем, что s1 более короткое.   // если это не так, меняем их местами.   if s1.length> s2.length then swap(s1,s2);   if pos(s1,s2)=0 then write('не');   writeln(' входит в более длиное');   // #4   s1: =s1.tochararray.select((c,i)-> i mod 2< > 0? 'a'+c: c).joinintostring('');   writeln(' 4) ',s1);   // #5   writeln(' 5) сумма кодов (в unicode) для длинного слова: ',           s2.tochararray.select(c-> integer(ord() end. примеры первое слово: колокольчик однозвучный утомительно звенит второе слово: дно 1) колокольчик однозвучный утомительно звенит 3) более короткое слово  входит в более длиное 4) дaно 5) сумма кодов (в unicode) для длинного слова: 42383 первое слово: ссора второе слово: рессора 1) рессора 2) ссора 3) более короткое слово  входит в более длиное 4) сaсоaра 5) сумма кодов (в unicode) для длинного слова: 7589

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end.