Программа

Program Pilshikov_5_52 (input,output);
{ Дана последовательность из не менее
  чем двух натуральных, за которой
  следует 0. Вычислить сумму тех из
  них, порядковые номера которых -
  числа Фибоначи. }
Var N,NumberN,Sum,i:integer;
    NumberNIsFibonachi:boolean;
    FibonachiPred,Fibonachi,FibonachiNext:integer;
BEGIN
  Sum:=0;
  NumberN:=0;
  FibonachiPred:=1;
  Fibonachi:=1;
  repeat
    NumberN:=NumberN+1;
    Write('Введите ',NumberN,' число ');
    Readln(N);
    if N<>0 then
      Begin
        if NumberN=Fibonachi then
          begin
            Sum:=Sum+N;
            FibonachiNext:=FibonachiPred+Fibonachi;
            FibonachiPred:=Fibonachi;
            Fibonachi:=FibonachiNext
          end
      End
  until N=0;
  Writeln('Sum=',Sum)
END.