implicit none integer(8) L,K,Y,C read(*,*) L,K C=L/K if (C==2) then write(*,*) "0" else Y=(C/2)*K write(*,*) Y end if end