program t
Implicit none
Integer i,n,h,j
Real k
Read*,n
K=h(j)/86400.0
End program
Recursive function h(n) result(d)
Integer d,n
Do i=1,n
If(n==1)then
d=1
Else
d=2*h(n-1)+1
End if
End do
end function
cHJvZ3JhbSB0CkltcGxpY2l0IG5vbmUgCkludGVnZXIgaSxuLGgsagpSZWFsIGsKUmVhZCosbgpLPWgoaikvODY0MDAuMApFbmQgcHJvZ3JhbSAKUmVjdXJzaXZlIGZ1bmN0aW9uIGgobikgcmVzdWx0KGQpCkludGVnZXIgZCxuCkRvIGk9MSxuCklmKG49PTEpdGhlbgpkPTEKRWxzZQpkPTIqaChuLTEpKzEKRW5kIGlmCkVuZCBkbwoJCmVuZCBmdW5jdGlvbg==