Написать программу через repeat. при введении последовательности чисел необходимо посчитать сумму всех введенных отрицательных чисел.

Написал программу на паскале
Обратите внимание, при вводе code цикл завершается.
По умолчанию code = 999;