Премного извиняюсь, неправильно прочел условие задачи
Кодируем точку нулем, тире - единицей. Тогда комбинация длиной пять сигналов может содержать максимум 5 единиц, т.е. для записи понадобится 5 бит.
Числу 11111(2) соответствует число 16+8+4+2+1=31(10), следовательно всего можно записать 32 комбинации точек и тире, которые будут кодироваться числами от 0 до 31.
2 Кбайта = 16384 бит
14571 бит = 1.7 Кбайт
1.5 Мбайт = 1572864 байт
3 Кбайт = 24576 бит
2458 байт = 2.4 Кбайт
74125 бит = 9 Кбайт
Вот так.Держи.
Var
p: integer;
begin
readln(p);
if p=5 then print('Молодец!')
else if p = 4 then print('Хорошо!')
else if p<=3 then print('<span>Лентяй!</span>')
end.