Алфавит племени мульти состоит из 8 букв какое количество информации несет одна буква этого алфавита?

N=2i,8=2i,i=збита-во сколько информации содержит 1 буква этого племени

Через while: var a,b,c,p,i: integer; begini: =0; a: =5; b: =7; c: =9; p: =a+b+c; while (p< =100) do    begin    i: =i+1;     a: =a+2;     b: =b+1;     c: =c+1;     p: =a+b+c;     end; writeln('это будет ',i,'-й по счету треугольник'); end. через repeat: var a,b,c,p,i: integer; begini: =0; a: =5; b: =7; c: =9; p: =a+b+c; while (p< =100) do    begin    i: =i+1;     a: =a+2;     b: =b+1;     c: =c+1;     p: =a+b+c;     end; writeln('это будет ',i,'-й по счету треугольник'); end.

Var      a: array [1..100] of integer;       i,n: integer; // количество элементов в массиве  begin      writeln('введите количество элементов в массиве: ');       readln(n);       write('введите элементы массива: ');       for i: =1 to n do        read(a[i]);       write('вывод элементов массива: ');       for i: =1 to n do      write(a[i],' '); end.