// PascalABC.NET 3.0, сборка 1128
begin
var s:='Это наша тестовая строка ищем слова из четырех букв.';
Copy(s,1,s.IndexOf('.')).ToWords.Where(x->x.Length=4).Println
end.
<u><em>Тестовое решение:</em></u>
наша ищем букв
Будет пасмурно, так как во всех условиях стоит пункт "если будет пасмурно".
Берем логарифм по основанию 2 от 32.
Получаем, что требуется 5 бит на 1 пиксель.
Можно реализовать через строки, но вы видимо только начали проходить Паскаль, поэтому такой вариант ;-)