program Fib;

function FibIter(n: integer): integer;
var i, k, F: integer;
begin
  i := 1; F :=0;
  for k := 1 to n do
    begin
    F := i + F;
    i := F - i;
    end;
  FibIter := F;
end;

function FibRec(n:integer): integer;
begin
  if n < 2
  then FibRec := n
  else FibRec := FibRec(n-1) + FibRec(n-2);
end;

begin
  writeln(FibIter(10):5);
  writeln(FibRec(10):5);
end.