Question

Помогите пожалуйста с задачей в pascal

Answer 1

Var n,i,f1,f2,f,s:integer;
begin
readln(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.

Пример:
10
s = 143
Нет