Ответ: program gt;var n,f1,f2,i,f:integer;beginreadln(n);f1:=1;f2:=1;for i:=2 to n dobeginf:=f1+f2;f1:=f2;f2:=f;end;writeln(f2);end.