Var
max, prev_max, n: integer;
begin
max := -10000;
prev_max := -10000;
repeat
read(n);
if n > max then begin
prev_max := max;
max := n;
end;
until n = 0;
writeln(max, ' ', prev_max, ' ', prev_max / max);
end.
В 1988 году была отмечена эпидемия компьютерного вируса<span> Jerusalem, который был запрограммирован на особенно разрушительные действия, если активировался в пятницу 13-го. В первый раз это произошло в пятницу </span>13 мая 1988 года<span>. Этот </span>чёрный юмор<span> был перенят авторами некоторых других компьютерных вирусов.</span>
Цифр, может быть?
для кодирования нужно 4 бита
Пиши по другому, а то 2 будет