program main implicit none integer::A,B,i,j integer::yen(0:600) data yen/601*0/ read *,A,B do i=0,A do j=0,B yen(i+j*5)=1 end do end do do i=1,601 if(yen(i).eq.1) then print '(i0)',i end if end do end program main