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

program zz1;

var a, b, n, i, c, s:integer; / / задаем переменные целого типа

begin

write (' введите натуральное число n '); / / вводим с клавиатуры число

read (n);

if n < 0 then write (' неверный ввод ');

a:=1; b:=1; c:=a+b; / / получаем первые числа Фибоначчи

s:=s+a+b; / / получаем начальную сумму

while c < n do / / организуем цикл, пока число Фибоначчи меньше чем заданное число N

begin

s:=s+c; / / получаем сумму, добавив к ней очередное число Фибоначчи

a:=b;

b:=c;

c:=a+b; / / получаем следующее число Фибоначчи

end;

write (' полученная сумма = ', s); / / выводим ответ

end.