А можно было переводить Мегабайты в килобайты, но я сделал по другому)
Мне кажется, задача не сводящая ответ к однозначным числам, ведь в задаче не сказано, что использовался весь алфавит, равно как и не сказано, что символы не могут повторяться.
если во втором тексте в 3.5 больше символов, чем в первом, при одинаковом инф. объеме, то число бит на каждый символ во втором тексте должен быть в 3.5 раза меньше, чем в первом тексте, чтобы размер файла текста не изменился: например 2 и 7 или 4 и 14 или 6 и 21... и т.д. соответственно, соовтетственно, мощность алфавита будет 4 и 128 или 32 и 16386 или 64 и 2097152.. и т.д. То, что в обоих текстах символов меньше 200 не говорит о том, что символы не могут повторяться, а значить определенно сказать, которая их вышеприведенного списка мощность алфавита будет верной нельзя.
var
n:integer;
begin
readln(n);
case n mod 12 of
4:writeln('год крысы');
5:writeln('год коровы');
6:writeln('год тигра');
7:writeln('год зайца');
8:writeln('год дракона');
9:writeln('год змеи');
10:writeln('год лошади');
11:writeln('год овцы');
0:writeln('год обезьяны');
1:writeln('год петуха');
2:writeln('год собаки');
3:writeln('год свиньи');
end;
end.