Неопределённость информации уменьшается в 3*3=9 раз, и такое кол-во информации кодируется минимум 4 битами.
Program n1;
var a: byte;
begin
readln(a);
if a=0 then write('ноль');
if a=1 then write('один');
if a=2 then write('два');
if a=3 then write('три');
if a=4 then write('четыре');
if a=5 then write('пять');
end.
Сзади нужно поднести большой магнит или приклеять
ТУТ СЛОВО ВЕРТОЛЁТ!!!!!!!!!