// 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>
наша ищем букв
Либо одна собака (4 лапы) и три курицы (6 лап), либо две собаки (8 лап) и одна курица (2 лапы)
11 девочек м 10 мальчиков.
<span>1011= 1*2^3+0*2^2+1*2^1+1*2^0=8+0+2+1=11
</span>1010= 1*2^3+0*2^2+1*2^1+0*2^0=8+0+2+0=10
Номер 2 не является вещественной константой.