integer::n
  read *,n
  print '(i0)',n-1
end program