Задачки в Pascal

[xMaDCaTx]

ребят нужна ваша помощь. Мне нужно найти сумму n первых чисел
Фибоначчи и я не знаю как.
помогите пожалуйста
заранее спасибо

[three_cats]

uses crt;
var
a:array[1..100] of integer;
sum,n,i:integer;
begin
a[1]:=1;
a[2]:=1;
sum:=2;
write('Введите n=');
readln(n);
for i:=3 to n do begin
a[i]:=a[i-1]+a[i-2];
sum:=sum+a[i];
write(a[i], ' ');
end;
writeln;
writeln('Сумма ряда=', sum);

end.

[Mad_Cat]

ток еще

sum:=2;

надо перед циклом поставить

[three_cats]

Сообщение от Mad_Cat

ток еще

sum:=2;

надо перед циклом поставить

Поправил, спасибо!

[xMaDCaTx]

спасибо всё работает