Ошибка в условии!Fn=Fn-2+Fn-1 при n>2!Программа для вычисления Fn (вместо 5 можно поставить другое число):var f1,f2,fn,i:integer;beginf1:=1;f2:=1;for i:=3 to 5 do begin fn:=f1+f2; f1:=f2; f2:=fn; end; writeln('fn=',fn);end.F3=1+1=2; F4=1+2=3; F5=2+3=5