Числа Фибоначчи определяются следующими формулами: f0=f1=1;
fn=fn-1+fn-2, при n>=2 на вход программе подается целое неотрицательное n=<40 выведите n-е число Фибоначчи. Массив в программе не использовать

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.