Помогите пожалуйста с программой в pascal Ооочень надо !

Пасиба

var n,i,f1,f2,f,s:integer;beginreadln(n);f1:=1; f2:=1;s:=f1+f2;for i:=3 to n do begin f:=f1+f2; f1:=f2; f2:=f; s:=s+f; end;writeln('s = ',s);if s mod 2=0 then writeln('Да')else writeln('Нет');end.Пример:10s = 143Нет