в .Запрограмуйте введення значення змінної s.
2) Створіть змінну s1 для формування результату і запишіть у неї
порожній рядок.
3) Число символів у рядку s має бути парним, тому запишіть
оператор розгалуження для реалізації такої дії: якщо довжина
рядка s є непарним числом, то додати до рядка пропуск:
if(len(s)%2 != 0): s = s+' '
4) Запишіть оператор циклу для перебору непарних індексів.
В тілі циклу до рядка s1 додаються символи s[i+1] і s[i]:
for i in range(0, len(s), 2):
s1 = s1+s[i+1]+s[i]
5) Виведіть зашифроване повідомлення.
6) Збережіть програмний код у файлі з іменем Vprava5.
Випробуйте програму.
Переконайтесь, що повідомлення успішно розшифровується за
до цієї ж програми.

Основные преимущества компьютерной технологии создания текстовых документов перед бумажной технологией:

1) Понятно написанный текст (есть не понятные почерки);

2) Высока скорость набора текста;

4) Возможность быстрой корректировка ошибок (в рукописном исправить сложнее);

5) Быстрая перестановка и перенесение теста в нужные места (сохранение выделенного фрагмента в буфер обмена);

6) Простое  форматирование текста (стиль и размеры текста) и абзацев в целом;

7) Просто насыщение текста картинками, таблицами, графиками и т.п.

8) Быстрый поиск ключевого слова по тексту;

9) Одновременная работа над одним текстом нескольких авторов;

10) Автоматическая проверка ошибок;

11) Простое и удобное рецензирование;

12) Быстрое размножение текста в любых объемах;

13) Защита авторских прав (от копирования, редактирования);

14) Доступ к тексту из любой точки мира;

15) Печать текста с наложением водяными знаками и применение различных подложек;

16) Представление текста в любых форматах (doc, pdf, jpeg и т.д);

17) Возможность шифрования текста для защиты от несанкционированного доступа;

18) Возможность применения по тексту гипер- и перекрестных ссылок;

19) Возможность установки цифровой подписи от автора текста;

20) Сохранение природных ресурсов (не нужно рубить леса для бумаги).

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
uses GraphABC;
begin
  var s:=ReadlnString('Укажите время MM:CC');
  var m:=s.Left(2).ToInteger;
  var c:=s.Right(2).ToInteger;
  var i:=m;
  var j:=c;
  Font.Size:=60;
  Font.Color:=clBlue;
  repeat
    while i<60 do begin
      while j<60 do begin
        if i<10 then s:='0'+i+':' else s:=i+':';
        if j<10 then s+='0'+j else s+=j;
        FillRect(50,100,350,400);
        DrawTextCentered(50,100,350,400,s);
        Inc(j);
        Sleep(1000)
        end;
      j:=0;
      Writeln;
      Inc(i)
      end;
    i:=0
  until False
end.