Последовательность Фибоначчи определяется так: a(0)=1, a(1)=1, a(k)=a(k-1)+a(k-2) при k>=2. Дано n, вычислить a(n).

var a,b,i,n: integer;begin a := 1; b := 1; read(n); for i := 2 to n do   begin   b := a + b;   a := b - a   end; write(b)end.