Форум Всеукраїнської інтернет-олімпіади NetOI

program coins2019;
{
   Complexity: O(n);
}
var
   n, j, i, k: longint;
   d: array[1..3, 0..100000] of longint;
   
begin
   read(n);
   {
   for i:=1 to 3 do
      for j:=0 to n do
         d[i,j]:=0;
   }
   
   for j:=0 to n do
      d[1,j]:=1;
   d[2,0]:=1; d[3,0]:=1;
   d[2,1]:=1;
   for j:=2 to n do
      d[2,j]:=d[1,j]+d[2,j-2];
   for j:=1 to 4 do
      d[3,j]:=d[2,j];
   for j:=5 to n do
      d[3,j]:=d[2,j]+d[3,j-5];
   
   write(d[3,n]);
end.