Program Main
integer inter(5)/5*12/


i1 =2000000000
factor =2.5

do in =1,5
i1 =i1 -inter(in)*factor
write(*,*) in, i1
enddo

ir =runqq('notepad', 'error.txt')
end

