Помогите плиз!!! 15 баллов!
Дана такая хрень: 1+2+5+8+13... То есть, прибавляем предыдущее число. Пользователь вводит сколько должно быть чисел в ряду, а программа должна посчитать сумму. Напишите в Паскале, плииииз!!!

var a,b,c,s,n,i:integer;beginreadln(n);b:=1;for i:=1 to n do  begin  c:=b+a;  s:=s+c;  a:=b;  b:=c;  end;writeln('s=',s);end.