Написати та реалізувати програму на мові Pascal. У рядку символів визначити кількість слів, знайти найдовше слово. Слова відділяються довільною кількістю пробілів, ком, крапок.

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360

Открываем "Мохнатую азбуку" Бориса Заходера и читаем названия животных на все буквы алфавита.

a. Слово ёж можно зашифровать рисунками жирафа и зебры.

b. Алгоритм расшифровки.
1) смотрим картинку животного.
2) берём его первую букву.
3) берём предыдущую букву.

c. Расшифровать сообщение, которого нет, очень трудно.

d. Нет животных на такие буквы:
Й, Ь, Ы, Ъ, Ю.
Интересная ситуация с буквой Ю. Вот стихи:
Это Южный Ктототам.
Я его придумал сам.
Я вам честно говорю:
Зверя нет на букву Ю!
В одной книге я видел иллюстрацию к этой букве. В качестве Южного Ктототама неожиданно был нарисован... негр.
Таким образом, нельзя закодировать буквы: И, Щ, Ь, Ы, Э.