<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
3.Step(3).TakeWhile(t -> t <= 100).Sum.Println
end.
<h2>1683</h2>
check comment ( pls delete )
90. "Закодирован" текст: "У кого сильные мышцы, тот победит одного. Кто силен знаниями, тот победит тысячу."
Под каждое словесное описание можно подобрать информационную модель.