Wikioi 1011

var
n,i,j:longint;
f:array[0..1010] of longint;
begin
readln(n);
f[1]:=1;
for i:=2 to n do
begin
f[i]:=1;
for j:=1 to (i div 2) do
f[i]:=f[i]+f[j];
end;
writeln(f[n]);
end.//Copyright (C) 2014 wikioi user12923 All rights reserved