Напишите программку, которая в последовательности целых чисел определяет сумму чётных чисел,

Напишите программу, которая в последовательности целых чисел определяет сумму чётных чисел, принадлежащих промежутку (15, 190) либо извещает, что таких чисел нет (выводит "net"). Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел кончается числом 0 (0 -- признак окончания ввода, не заходит в последовательность).
Количество чисел не превышает 1000. Введённые числа по модулю не превосходят 30 000. Программка должна вывести одно число: сумму чётных чисел, принадлежащих промежутку (15, 190) либо вывести "net", если таких чисел нет.
Пример работы программки:
Вход:
5
15
25
48
180
196
0
Выход:
228
(48+180)
Язык Паскаль