Написать программу в Паскале




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

Var A,B,N:integer;S:real;BeginA:=0;B:=1;Write('N = ');ReadLn(N);if N<0 then Write('Введите положительное число')else   Begin   While A<N do      Begin      S:=S+A;      A:=A+B;      Swap(A,B);      Write(A,' ');      End;   WriteLn;   WriteLn('S = ',S)   End;End.Пример:N = 100001 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 S = 17710Примечание:Условие немного некорректно, т.к.1+1+2+3+5+8+13+21+34+55+89+144+233+377+610+987+1597+2584+4181+6765 = 17710.

var n,f1,f2,fn,sum:integer;beginwrite('n = ');readln(n);while n<=0 do begin writeln('Введите n>0. n = '); readln(n); end;f1:=1; f2:=1;fn:=f1+f2;while fn<n do begin sum:=sum+fn; fn:=f1+f2; f1:=f2; f2:=fn; end;writeln('sum=',sum);end.Пример:n = -10Введите n>0. n = 10000sum=17710