Это цикл с условием ( ПАСКАЛЬ )

Ввести натуральное число N и вычислить сумму всех чисел Фибоначчи, меньших N. Предусмотрите защиту от ввода отрицательного числа N.

Пример:
Введите число N:
10000
Сумма 17710

Помогите пожалуйста сделать
Заранее спасибо