Племя мульти имеет 128-х символьный алфавит. племя пульти использует 64-х символьный алфавит. вожди племен обменялись письмами. письмо племени мульти содержало 30 символов, а письмо племени пульти – 60 символов. на сколько бит различаются объемы информации, содержащиеся в этих письмах?

При использовании 128-символьного алфавита для хранения одного символа требуется log(2)128 = 7 бит; при использовании 64-символьного - log(2)64 = 6 бит.
Объем информации в письме племени Мульти = 30*7 = 210 бит;
объем информации в письме племени Пульти = 60*6 = 360 бит.
360-210 = 150 бит
ответ: письмо племени Пульти содержит на 150 бит информации больше, чем письмо племени Мульти.

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  case ReadInteger('Номер месяца (1-12):') of
  1,2,12:Writeln('Зима');
  3..5:Writeln('Весна');
  6..8:Writeln('Лето');
  9..11:Writeln('Осень');
  else Writeln('Неверный номер месяца')
  end
end.

Вариант "для школьников"
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var n:integer;
begin
  Write('Номер месяца (1-12): '); Read(n);
  case n of
  1,2,12:Writeln('Зима');
  3..5:Writeln('Весна');
  6..8:Writeln('Лето');
  9..11:Writeln('Осень');
  else Writeln('Неверный номер месяца')
  end
end.

Var mas: array[1..15] of integer;
      i, min, max, nMin, nMax:integer;
begin
  writeln('Введите 15 элементов массива');
  for i := 1 to 15 do
    readln(mas[i]);
    min := mas[1];
    max := mas[1];
    nMin := 1;
    nMax := 1;
  for i := 1 to 15 do
    begin
      if max < mas[i] then
        begin
          max := mas[i];
          nMax := i;
         end;
      if min > mas[i] then
        begin
          min := mas[i];
          nMin := i;
        end;
    end;
  writeln('Максимальное число и его номер ', max, '   ', nMax, ' Минимальное число и его номер ', min, '   ', nMin);
end.