В одной из кодировок Unicode каждый символ кодируется 8 битами, Степан написал текст (в нём нет лишних пробелов, символы переноса слов не учитываются) Затем ученик добавил в список название одного из видов спорта. Заодно он добавил необходимые занятые и пробелы,) После этого он преобразовал текст в кодировку, где каждый символ кодируется ДВУМЯ БАЙТАМИ, Получилось предложение Бокс, дзюдо, футбол, бейсбол, плавание, бадминтон, фехтование-виды спорта
Размер нового предложения, в новой кодировке оказался на 85 байт БОЛЬШЕ, чем размер исходного предложения,. Напишите в ответе добавленное название вида спорта
Только , если кто-то сможет сделать, то сделайте с объяснением

пролететь - расстояние

проехать на лифте - номер этажа 

спрыгнуть - высота, скорость

поесть - количество

повернуть - время или направление

uses crt; var a[1..100] of integer; i,n,count: integer; begincount: =0; read(n); for i: =1 to n do read(a[i]); if a[i]> 0 then inc(count); write(count); end.

думаю так1) налить в кувшин 3 л, перелить в емкость,где будет 7 л

2) еще раз налить туда 3 л

3) налить 3 л воды налить в кувшин для 8 л, потом еще раз для 8 литров и еще раз(3 раза) на третьем разе останется 1 л,этот л и доливаем в кувшин с 7 л 

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.