uses  crt;  
function Fib(N : integer) : longint;begin  If N<0 then Fib := -1 else  If (N=0) or (N=1) then Fib := 1  else Fib := Fib(N-2) + Fib(N-1);end; var  n, i, j, s, k, z : integer;   
begin  clrscr;
   s := 0;  repeat    write('n = '); readln(n);  until n>=0;  write('Количество чисел : '); readln(k);  for z := 1 to k do begin    repeat     write('Введите число [0..',N,']  : ');readln(j);    until j<=N;    i := 0;    while Fib(i)<=j do inc(i);    If Fib(i-1) = j then s := s + j;  end;  writeln('Сумма чисел Фиббоначи : ',s);  readln;end.