begin
var (n, s) := (1, 12000.0);
while s < 42195 do
(n, s) := (n + 1, s * 1.1);
Println(n * 7 / 30)
end.
В ответе будет 3.5 - это если если считать, что в месяце 30 дней.
