В школе 162 ученика, коды учащихся записаны в школьной информационной системе с минимального количества бит. Каков информационный объём в байтах сообщения о кодах 23 учащихся старших классов?

1 задача
program proga;
var st,st2:string;
i:Integer;
begin
writeln('Введите число');
readln(st);
for i:=1 to length(st) do begin
st2:=st[i];
write(st2,' ');
end;
end.
2 задача
program proga2;
var st,st2:string;
i,a:Integer;
begin
writeln('Введите возраст');
readln(a);
if a>120 then
writeln('Неверные данные');
if a=1 then
writeln(a,' год');
if (a>1) and (a<5) then
writeln(a,' года');
if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');
if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then
writeln(a,' лет');
if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');
if(a>104) and (a<110)then writeln(a,' лет');
end.

Program z1;
var a:array[1..100] of integer;
        i,n,k,mi,miu:integer;
begin
        assign(input,'in.txt');
        reset(input);
        readln(n);
        for i:=1 to n do begin
                read(a[i]);
        end;
        close(input);
        mi:=a[1];miu:=1;
        for i:=1 to n do begin
                if a[i]<mi then begin
                        mi:=a[i];miu:=i
                end;
        end;
        i:=miu;
        while i<n do begin
                a[i]:=a[i+1];
                i:=i+1
        end;
        assign(output,'out.txt');
        rewrite(output);
        for i:=1 to n-1 do begin
                write(a[i],' ')
        end;
        close(output)
end.