Вычислить сумму чисел, порядковые номера которых являются числами Фибоначчи.

num := 1;
num1 := 1;
s := 0;
while num <= N do
begin
 s := s + a[num];
 b := num + num1;
 num1 := num;
 num := b;
end;

uses crt;
var a:array[1..100]of integer;
i, n, num, num1, s, b:longint;
 
begin
 clrscr;
 write('N -> ');
 readln(n);
 write('Введите массив -> ');
 for i:= 1 to N do read(a[i]);
 readln;
 num := 1;
 num1 := 1;
 s := 0;
 while num <= N do
 begin
  s := s + a[num];
  b := num + num1;
  num1 := num;
  num := b;
 end;
 writeln('S = ',s);
 readln;
end.

program name;
var x, s1, a, n, b, s:integer;
begin
writeln ('Введите первые 2 числа');
read (a, b);
writeln ('Введите конечное значение');
read (n);
while s<=n do begin
s:=a+b;
s1:=s1+s;
a:=b;
b:=s;
x:=x+1;
writeln (x, ' значение: ', s);
end;
writeln ('Всего значений по назначемому вами конечному значению - ',n,': ',x );
writeln ('Cума этих чисел: ', s1);
end.