Напишите программу в среде программирования турбо паскаль, которая в последовательности натуральных чисел вычисляет сумму всех однозначных чисел, кратных 3. программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число: сумму всех однозначных чисел, кратных 3.