Ввести натуральное число

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

ввода отрицательного числа N.

Var

f1, f2, max: integer;

s: longint;

begin

max : = - 1;

while max < 0 do

begin

writeln ('введите то число до которого выводить числа') ;

readln (max) ;

if max < 0 then writeln ('введено неверное число') ;

end;

s : = 0;

f1 : = 0;

f2 : = 1;

while f2 < max do

begin

s : = s + f2;

f2 : = f2 + f1;

f1 : = f2 - f1;

writeln (f2) ;

end;

writeln ('S=', s) ;

end.