var
  N: integer;
  a: integer;
  b: integer;
  c: integer;
  i: integer;
begin
  write('Номер элемента ряда Фибоначчи: ');
  readln(N);
  a := 0;
  b := 1;
  i := 3;
  while i <= N - 1 do
  begin
    c := b;
    b := a + b;
    a := c;
    i += 1;
  end;
  writeln('Число: ', a + b);
end.