var n, k: integer;begin; read(n); k := -10000; while(k < 0) do k := k - 1; writeln('Min: k = ', (k + 1) div 3, ', 3*k = ', k + 1); k := n div 3; if 3 * k >= n then k := k - 1; writeln('Max: k = ', k, ', 3*k = ', 3 * k);end.
Правильный ответ у меня вышло Г