Сделать программу на паскале + блок схему 15 .вычислить : 1+2+3+5+8+13+…

//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.