Отметьте верные утверждения для каждой из данных формул

Верные утверждения:

i - информационный вес символа алфавита

N - мощность алфавита

I = k * i

Верные утверждения:

I - информационный объем сообщения

k - количество символов в сообщении

i - информационный вес символа алфавита

program xxx;   var i, n, max : integer;         s : real;         a : array [1..20] of integer; begin  write ('введите n= ');   readln(n);   for i: =1 to n do      readln (a[i]);   max: = a[1];   for i: =1 to n do      if a[i] > max then max : = a[i];   s: = sqrt(max);   write ('корень из наибольшего эл-та =', s)end.

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен