Информатика - : составить программу, в которой с клавиатуры вводятся два текстовых выражения. необходимо: 1) выбрать и вывести на экран более длинное из них 2) проверить и вывести на экран то из них, у которого первая и вторая буквы - одинаковая (регистр букв можно не учитывать) 3) проверить, входит ли короткое слово в состав длинного 4) вставить в короткое слово на чётные позиции буквы "а" дополнительно к тому, что есть 5) подсчитать суммы кодов символов, использованных в длинном слове

// 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