program main implicit none integer i,j character*50001 a read(*,*)i if(mod(i,2)==0)then do j=1,i/2 write(*,"(i0)",advance='no')1 enddo else write(*,"(i0)",advance='no')7 do j=2,i/2 write(*,"(i0)",advance='no')1 enddo endif write(*,*) end program main