var
  x, m: integer;

begin
  m := -1;
  repeat
    Write('Введите число X: ');ReadLn(x);
    if (x mod 3 = 0) and ((x < m) or (m < 0)) and (x <> 0) then m := x;
  until x = 0;
  if m >= 0 then WriteLn('Ответ: ', m) else WriteLn('нет таких чисел!');
end.