Cколько байтов в компьютерной памяти займёт слово «красивый»?

Uses
  Crt;
Var
  i, N, kol: byte;
  sum_rost, sr_rost: real;
  team: array[1..100] of real;
Begin
  sum_rost := 0.0;
  sr_rost := 0.0;
  kol := 0;
  write('Введите количество членов команды');
  read(N);
  writeln('Введите рост каждого члена команды');
  for i := 1 to N do
    begin
      readln(team[i]);
      sum_rost := sum_rost + team[i];
    end;
  sr_rost := sum_rost / N;
  for i := 1 to N do
    if (team[i] > sr_rost) then
      kol := kol + 1;
  writeln('Количество членов команды, рост которых превышает средний по команде (', sr_rost:4:2, ')');
  write(' равно ', kol);
End.

Я надеюсь надо было на паскале написать?)

 

1) Это явно шифр замены. Мы знаем, что:
А = Я, Н = С, Т = М, О = Р, М = Т, И = Ц, Х = Й, Л = У, Ь = Г,
Е = Ъ, В = Э, Г = Ь, Й = Х.
Этого достаточно, чтобы подставить буквы и получить
НМЪПЯС = СТЕ*АН, очевидно, что это СТЕПАН.
А если немного подумать, то можно догадаться, какой это шифр.
Взяли алфавит и написали два раза - прямо и наоборот.
Каждая буква из 1 алфавита заменяется на букву 2 алфавита.
А = Я, Б = Ю, В = Э, Г = Ь, и так далее.

2) Про Виталия. Из 96 друзей 76 знают Павла и 56 знают Андрея.
Значит, минимум 76+56-96 = 36 чел знают и Павла и Андрея.
Про Павла. Из 162 друзей 96 знают Андрея и 76 знают Виталия.
Минимум 96+76-162 = 10 знают и Андрея и Виталия.
Про Андрея. Из 108 друзей 56 знают Виталия и 96 знают Павла.
Минимум 56+96-108 = 44 знают и Виталия и Павла.
Выбираем наибольшее из минимальных чисел.
ответ: минимум 44 чел знакомы со всеми тремя парнями.