Дано целое число n (> 1). вывести наименьшее целое k, при котором выполняется неравенство 3k < n, и само значение 3k

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.