c234567891213456789
implicit none
integer i,j,n
real time(8,5)
open(11,file='indata.txt')
n=8
read(11,*)((time(i,j),j=1,4),i=1,8)
do i=1,8
time(i,5)=0
time(i,5)=time(i,5)+(time(i,2)*60)+(time(i,3))+((time(i,4))/60)
enddo
write(*,100)'選手番号','タイムa','タイムb','タイムc','合計(分)'
write(*,*)'_____________________________________________________'
do i=1,8
write(*,200) (time(i,j),j=1,5)
enddo
100 format(a14,3a10,a12)
200 format(f12.0,4f10.2)
close(11)
end