Турбо Паскаль. Найти сумму n-членов ряда Фибоначчи

[Руслан086]

помогите пж с программой в паскале

Найти сумму n-членов ряда Фибоначчи

[Serge_Bliznykov]

{Числа Фибоначчи}
var i, n, z, prev, sum: integer;
begin
  n:= 6;
  z:=0; prev:=1;
  for i:=1 to n do begin {В цикле получаем n чисел Фибоначчи}
    z:=z+prev; {следующее число ряда - это сумма двух предыдущих}
    prev:=z-prev; {предыдущее число найдём через разницу - чтобы сэкономить одну переменную}
    sum := sum + z; {просуммируем, добавим очередное число Фибоначчи к сумме}
    Write(z,' '); { И выводим очередное число ряда }
  end;
  WriteLn;
  Writeln('sum = ',sum);
end.