Question

В паскале. Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное трём. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Гарантируется, что в последовательности есть хотя бы одно число, кратное трём. Программа должна вывести наименьшее число, кратное трём.Пример работы программы:
Входные числа:
45
10
9
0
Выходные числа:
9

Answer 1

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0)

     .Where(p -> p mod 3 = 0).Min.Println

end.