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

Program gt;
var n,f1,f2,i,f:integer;
begin
readln(n);
f1:=1;f2:=1;
for i:=2 to n do
begin
f:=f1+f2;
f1:=f2;
f2:=f;
end;
writeln(f2);
end.