Используя возможности создания гиперссылок в тек- стовом редакторе по теме «Великие личности в истории
Казахстана», создайте 5 тестовых заданий с 4 вариантами ответов
​

V=K*I;
V - объем сообщения
K - количество символов в сообщении I - вес одного символа;
N=2^I, где N мощность алфавита (N≤32 ⇒ I≤5);
V₁=V₂ (объёмы сообщений);
2,5*K₁ = K₂
V₁=K₁*I₁;
V₂=K₂*I₂=2,5*K₁*I₂;
приравняем объёмы
K₁*I₁=2,5*K₁*I₂ ⇒
I₁ = 2,5*I₂
решим уравнение в целых числах, учитывая, что любое I≤5
( можно подставлять числа для I₁ от 1 до 5 и найти то решение, при котором I₂ - целое число);
у меня получилось I₁ = 5; I₂=2 т.к. 5=2,5*2
нам нужны мощности 1го и 2го алфавитов
N₁=2^I₁=2⁵=32 символа;
N₂=2^I₂=2²=4 символа.

Program Posledovatelnost;
var  a: char;  b: string;  code, c: integer;
label dne;begin  readln(a);    //Читаем  code := Ord(a); //Преобразуем  b := Concat(b, a);  for c := 1 to 31 do  begin    case code of      97, 65:        begin//если "A"          readln(a);          code := Ord(a);          case code of            101, 69: b := Concat(b, a);            105, 73: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      98, 66:        begin//Если "B"          read(a);          code := Ord(a);          case code of            102, 70: b := Concat(b, a);            106, 74: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      99, 67:        begin//Если "C"          read(a);          code := Ord(a);          case code of            103, 71: b := Concat(b, a);            107, 75: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      100, 68:        begin//Если "D"          read(a);          code := Ord(a);          case code of            104, 72: b := Concat(b, a);            108, 76: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      101, 69:        begin//Если "E"          readln(a);          code := Ord(a);          case code of            97, 65: b := Concat(b, a);            105, 73: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      102, 70:        begin//Если "F"          readln(a);          code := Ord(a);          case code of            98, 66: b := Concat(b, a);            106, 74: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      103, 71:        begin//Если "G"          readln(a);          code := Ord(a);          case code of            99, 67: b := Concat(b, a);            107, 75: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      104, 72:        begin//Если "H"          readln(a);          code := Ord(a);          case code of            100, 68: b := Concat(b, a);            108, 76: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      105, 73:        begin//Если "I"          readln(a);          code := Ord(a);          case code of            97, 65: b := Concat(b, a);            101, 69: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      106, 74:        begin//Если "J"          readln(a);          code := Ord(a);          case code of            98, 66: b := Concat(b, a);            102, 70: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      107, 75:        begin//Если "K"          readln(a);          code := Ord(a);          case code of            99, 67: b := Concat(b, a);            103, 71: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;      108, 76:        begin//Если "L"          readln(a);          code := Ord(a);          case code of            100, 68: b := Concat(b, a);            104, 72: b := Concat(b, a);          else begin writeln('За предыдущей буквой не может следовать эта буква. Завершение!');goto dne end;          end;        end;    end;  end;  writeln(b);  dne: end.