//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var x:=readinteger('x=');
var mas:= new real[x]; mas[0]:=1; mas[1]:=2;
for var i:=2 to x-1 do
mas[i]:=mas[i-2]+mas[i-1];
mas.Println;
Writeln('Сумма=',mas.Sum)
end.
