Автоматическое устройство осуществило перекодировку информационного сообщения, первоначально записанного в коде Unicod. в кодирвку ASCII, При этом информационное сообщение уменьшилось в 1000 бит Какова длина сообщения и запишите его в коде и символах Unicod?

//Pascal ABC.NET 3.1 сборка 1219

Var
 k,n,max:integer;

 procedure hase(var k,n,max:integer); //сама последовательность
 begin
  if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность
  writeln(n); //вывод нового члена последовательности
  inc(k); //увеличение значения счётчика шагов
  if max<n then max:=n; //поиск вершины
 end;

  procedure start(var k,n,max:integer); //название процедуры намекает
 begin
  readln(n);
  k:=0;
  writeln('Seq:');
  max:=integer.MinValue;
  while n<>1 do
  hase(k,n,max);
  writeln('Шаги:',k);
  writeln('Вершина:',max);
 end;
 begin
 start(k,n,max);
end.
Пример ввода:
6
Пример вывода:
Seq:
3
10
5
16
8
4
2
1
Шаги:8
Вершина:16

program v5;

var a:array[1..15]of integer;

i,j,n,buf:integer;

begin

randomize;

for i:=1 to 15 do

begin

a[i]:=random(70)-20;

 write(a[i], ' | ');  

end;

writeln; writeln('Измененный массив: ');

 for i:= 1 to 15 do  

   begin

     if a[i] mod 5=0 then    

       begin

         a[i]:= 0;          

         write(a[i], ' | ')    

       end

     else

       write(a[i], ' | ');      

   end;

    for i:=1 to 15-1 do

 for j:=1 to 15-i do

begin

if (a[j] > a[j+1]) then

begin

buf := a[j];

 a[j] := a[j+1];

  a[j+1] := buf;

end;

end;

writeln; writeln('Массив после рассортировки по возрастанию:');  

for i:=1 to 15 do

write(a[i], ' | ');

end.