Хэлп! ! дан ряд чисел: 1+2+2+4+8+ (умножаем на предыдущее число). пользователь вводит сколько должно быть чисел в этом ряду, а программа должна посчитать их сумму. , напишите в паскале!

Var a,b,c,s,n,i:integer;
begin
readln(n);
a:=1;
b:=2;
s:=3;
for i:=3 to n do
  begin
  c:=b*a;
  s:=s+c;
  a:=b;
  b:=c;
  end;
writeln('s=',s);
end.