Ошибка в условии!
Fn=Fn-2+Fn-1 при n>2!
Программа для вычисления Fn (вместо 5 можно поставить другое число):
var f1,f2,fn,i:integer;
begin
f1:=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