Система передачи данных состоит из устройства, буфера памяти и принимающего устройства. работа системы определяется следующими правилами: устройство последовательно передает в буфер памяти пакеты данных. перед началом передачи очередного пакета устройство проверяет, есть ли в буфере памяти место для размещения этого пакета. если место есть – резервирует объем памяти, требуемый для хранения пакета, и начинает передачу. если места нет – останавливает передачу данных и больше не возобновляет. передача данных в буфер памяти занимает 10 секунд. незамедлительно по завершении передачи пакета, устройство предпринимает попытку передать следующий пакет данных. принимающее устройство постоянно опрашивает буфер памяти. как только в нем обнаруживается целиком переданный новый пакет, оно начинает загружать его из буфера памяти. загрузка пакета занимает 11 секунд. в один момент времени принимающее устройство может загружать только один пакет и загрузка пакета не может быть прервана. как только загрузка пакета данных завершена, в буфере освобождается все зарезервированное под него место. до этого момента использовать зарезервированную память для хранения других пакетов невозможно. принимающее устройство опрашивает буфер памяти и совершает загрузку из него пакетов, даже если устройство остановило свою работу. объем памяти буфера позволяет одновременно хранить ровно 3 пакета данных. процессы резервирования и освобождения памяти в буфере происходят мгновенно. определите, сколько пакетов получится передать за один сеанс использования такой системы. в ответе укажите целое число. пример записи ответа: 123

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

 

function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := rez * a;
  Pow := rez;
end;

function BinToDec(a:string):integer;
var
i ,r:integer;
begin
  r := 0;
  for i := length(a) downto 1 do
    r := r + StrToInt(a[i]) * Pow(2, length(a) - i);

  BinToDec := r;
end;

var
  s:array[1..100] of string;
  i:integer;
begin
  s[1] := '11001101';
  s[2] := '11100101';
  s[3] := '11110010';
  s[4] := '00100000';
  s[5] := '11110101';
  s[6] := '11110011';
  s[7] := '11100100';
  s[8] := '11100000';
  s[9] := '00100000';
  s[10] := '11100001';
  s[11] := '1110010';
  s[12] := '11100111';
  s[13] := '00100000';
  s[14] := '11101110';
  s[15] := '11100001';
  s[16] := '11110000';
  s[17] := '11100000';
  s[18] := '00101110';
  for i := 1 to 18 do
    write(chr(BinToDec(s[i])));
end.

Три друга, Асхат, Эльдар и Айжан, решили сыграть одну интересную игру. Игра называется “Второй максимум”. Правило игры заключается в следующием. Каждый из игроков записывает число на бумаге не показывая другим. После этого они раскрывают какие числа написали. Побеждает тот кто написал второй максимум. При этом гарантируется что все числа различны.

Вводные данные: На первой строке даны 3 числа x, y, z (1 ≤ x, y, z ≤ 10^9). х число загадавший Асхат. у число загадавший Эльдар. z число загадавшая Айжан.

Выходные данные: Вывести Askhat если победил Асхат. Вывести Eldar если победил Эльдар. Вывести Aizhan если победила Айжан.

Пояснение Примера 1: Победил Эльдар по скольку он загадал число 2, которое больше числа 1 который загадал Асхат и меньше числа 3 которую загадала Айжан.

заранее