Напишите программу в среде программирования Турбо Паскаль, которая в последовательности

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