Сообщение племени Пульту, записанное буквами 16 символьного алфавита, содержит 15 символов. Какое количество информации оно несёт?

Запомни: в 1 байте 8 бит, в 1 Кбайте 1024 байт, 1 Мегабайте = 1024 кбайт, 1 Гигабайт = 1024 мегабайт.
Исходя из этого имеем (приведём всё к битам):
1) 5 бит
2) 15 байт = 15*8 бит = 120 бит
3) 1024 килобайт = 1024*1024 байт = 1048576 байт = 1048576 *  8 бит = 8388608 бит
4) 1024 мегабайт = 1024*1024*1024*8 бит = 8589934592 бит
5) 15 килобайт = 15*1024*8 бит = 122880 бит

Таким образом:
5 бит → 15 байт → 15 килобайт → 1024 килобайт → 1024 мегабайт

(хотя здесь и вычислять ничего не нужно - всё итак очевидно и без расчётов)

1)
var a, b: real;
begin
     readln(a, b);
    if (a > b) then writeln(a)
    else
        if (a < b) then writeln(b)
        else
            writeln('a = b');
end.

2)
var a, b, c: integer;
begin
     readln(a);
     b := a mod 100 div 10;
     c := a mod 10;
     a := a div 100;
     write('a) ');
    if (a > c) then writeln(a)
    else
        if (a < c) then writeln(c)
        else
            writeln('=');
     write('b) ');
    if (a > b) then writeln(a)
    else
        if (a < b) then writeln(b)
        else
            writeln('=');
     write('c) ');
    if (c > b) then writeln(c)
    else
        if (c < b) then writeln(b)
        else
            writeln('=');
end.

3 даже представить не могу, извините:)