1. Дано послідовність чисел Фібоначчі. Визначити члени послідовності u1, u2, … un та їх суму (n - номер за списком).

vara,b,c,i,n,s: integer;beginwrite('Введите n: ');readln(n);a := 0;write(a,' ');b := 1;write(b,' ');s:=1;for i:=3 to n do beginwrite(a+b,' ');s:=s+a+b;c := b;b := a + b;a := c;end;writeln();writeln('Сумма: ',s);end.