2. Если первый ученик за 1 час может собрать X ведер яблок, второй - у ведер, третий- Z ведер, то сколько ведер
яблок они соберут за часов? Составьте программу

1.В кодировке Unicode каждый символ кодируется 2 байтами. На экран влезает 25 • 80 = 2000 символов. Соответственно, объем текста равен 2000 • 2 = 4000 (байт) ≈ 3,9 (Кбайт)
ответ: 4000 байт
2.Сообщение состоит из 6 • 40 • 20 = 14400 символов. Поскольку объем этого текста составляет 28800 байт, то на один символ отводилось 2 байта, т.е. 16-разрядный двоичный код. Текст записан в кодировке Unicode.
ответ: 16 разрядов)
3.I = 5 Кбайт
K = 4 • 32 • 40
N = ?N = 2i; I = K • i
i = I/K, i = (5 • 210 • 23)/(22 • 25 • 23 • 5), i = 23 = 8
N = 28 = 256
ответ: 256 символов в алфавите)

Program Evg97;
uses crt;
var
  a,b,c:real;
begin
  writeln('++');
  writeln('|               ПОРІВНЯЛКА               |');
  writeln('++');
  write('Введіть число a: '); readln(a);
  write('Введите число b: '); readln(b);
  write('Введіть число c: '); readln(c);
  writeln();
  writeln('++');
  writeln('|               Результат:               |');
  writeln('++');
  if (a=b) or (a=c) or (b=c) then
      writeln('| Хмм...  Деякі (або всі) числа рівні... |')
    else
      if (a<b) and (b<c) then
          writeln('|     Число посередині: b=',b:8:3,'       |')
        else    
          if (a<c) and (c<b) then  
              writeln('|     Число посередині: c=',c:8:3,'       |')
            else
              writeln('|     Число посередині: a=',a:8:3,'       |');
  writeln('++');
end.