program chaicho_0
	character(30) :: thong_bao
	real :: x

	thong_bao="cho bien x:"
	print "(A\)", thong_bao
	read (*,*) x
	write (*,*) x
	y = x/0.0
	write (*,*) y
end program
