На этом этапе стоит определиться с, так называемой, длиной информационного слова, то есть длиной строки из нулей и единиц, которые мы будем кодировать. Допустим, у нас длина слова будет равна 16. Таким образом, нам необходимо разделить наше исходное сообщение («habr») на блоки по 16 бит, которые мы будем потом кодировать отдельно друг от друга. Так как один символ занимает в памяти 8 бит, то в одно кодируемое слово помещается ровно два ASCII символа. Итак, мы получили две бинарные строки по 16 бит:
begin
read(a,b,c);
if a=>b then max:=a
else max:=b;
if c>max then max:=c;
if a<=b then min:=a
else min:=b;
if c<min then min:=c;
writeln ('Произведение максимального на минимальное = ',max*min);
end.