implicit none
integer(8) X
read(*,*) X
if (X==0) then
    write(*,*) 1
else
    write(*,*) 0
end if
end