Последовательность фибоначчи определяется так: 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.