Program Fibonace_recursiv;
var k:longint;t:longint;

Procedure totalizare;
var i,t1,t2:longint;
begin
if k=1 then t:=1;
if k=2 then t:=1; 
t1:=1;
t2:=1;
for i:=3 to k do
begin
t:=t1+t2;
t1:=t2;
t2:=t;
end;
end;

Procedure citire;
var f:text;
begin
assign(f,'kfib.in');
reset(f);
readln(f,k);
close(f);
end;

Procedure afisare;
var f2:text;
begin
assign(f2,'kfib.out');
rewrite(f2);
writeln(f2,t);
close(f2);
end;

begin
Citire;
Totalizare;
Afisare;
end.