program W implicit none integer::N read*,N print"(I0)",N+N/2 end program W