PROGRAM test
IMPLICIT NONE
INTEGER :: ntime, isec, imin, ihour, iday
READ(*, *) ntime
isec = MOD(ntime, 60)
ntime = INT(ntime / 60)
imin = MOD(ntime, 60)
........
STOP
END PROGRAM test

残りは繰り返しだから自分で完成させろｗ

秒が整数で与えられると仮定したので、amodでなくてmodにした。
その辺は自分でハッテンさせてくれ。

ま、宿題は自分でやれよｗ