program main
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int32):: x

    read*, x

    if (x==0) then
        print'(i0)', 1
    else
        print'(i0)', 0
    end if
    
end program main