begin
  var arr: array of integer := new integer[0];
  repeat
    SetLength(arr, High(arr) + 2);
    arr[High(arr)] := Abs(ReadLnInteger('Введите ' + Succ(High(arr)) + '-е число:'));
  until arr[High(arr)] = 0;
  SetLength(arr, High(arr));
  System.Console.Clear;
  Write('Последовательность чисел: ');arr.Println(#32);
  WriteLn('Минимальное число кратное трем: ', arr.Where(x -> x mod 3 = 0).Count <> 0 ? IntToStr(arr.Where(x -> x mod 3 = 0).Min) : ':(');
end.