($a,$b,$c,$d,$k)=glob<>;
print+($a*$b+$c-$d)%$k,$/