Числа Фибоначчи

Последовательность Фибоначчи определяется так:

φ0=0, φ1=1, ..., φn=φn-1+φn-2.

По данному числу n определите n-е число Фибоначчи φn.

Входные данные
Вводится натуральное число n.

Выходные данные
Выведите ответ на задачу.

Исходный код на языке Pascal
var
  i, a, b, n, c: integer;

begin
  read(n);
  b := 1;
  c := 1;
  for i := 1 to n do
  begin
    a := c;
    c := b;
    b := a + b;
  end;
  writeln(a);
end.