Ввести натуральное число
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.