write(6,*)'division:'
10	read (5,*)x
	read (5,*) y
	write(6,*) x/y
	goto 10
  	end