Определите информационный объем сообщения

Символы м а т е и к - объем алфавита  6 символов p.s. надеюсь на и лучший ответ.

//попробуйте мой вариант:

program chislo;

var n, k, i, raz: integer;

begin

    write('сколько чисел нужно сгенерировать: ');

    readln(n);

    write('число которое нужно посчитать (k): ');

    readln(k);

    for i: =1 to n do

        if random(0,100) = k then

            raz: =raz+1;

    writeln( 'из ', n, ' cгенирировандных чисел число ', k, ' встретилось ', raz, ' раз(а)');

end.

var a, b, c, d: integer;

begin

    write('введите a: ');

    readln(a);

    write('введите b: ');

    readln(b);

    write('введите c: ');

    readln(c);

   

    if a > b then

        d: =a

    else

        d: =b;

    if c > d then

        d: =c;

    writeln('наибольшее число: ', d);

end.