ПОМОГИТЕ ПОЖАЛУЙСТА. ОЧЕНЬ НУЖНО

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

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

ЭТО ПАСКАЛЬ
ЦИКЛ С УСЛОВИЕМ

ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО

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