preguntas = [ "Los romanos dividieron españa en...",
			  "¿quienes fueron los pueblos colonizadores?", 
			  "¿como llamaron los romanos a la peninsula iberica?",
			  "¿como se llamaban los poblados celtas?",
			  "¿que pueblo vivio en la peninsula iberica en la edad antigua?", 
			  "¿en que guerras se enfrentaron los romanos y los cartagineses?", 
			  "¿Que protocolo controla las comunidades encriptadas y autentificadas a traves de Internet?",
			  "¿En materia de informatica, ¿A que hace referencia la palabra Internet?",
			  "¿Quien fue el primero en decir que la Tierra orbita al rededor del sol?" ,
			  "Newton tuvo un gran rival contra su teoría de la descomposicion de la luz en colores ¿quien fue?" ] 
 
respuestas = [ "provincias",
			   "fenicios, griegos y cartagineses",
			   "hispania", 
			   "castros", 
			   "celtas",
			   "punicas", 
			   "https", 
			   "interconexion de redes", 
			   "nicolas copernico", 
			   "goethe" ]     
 
puntos = 0
contador = 0
#puts preguntas
 
#puts preguntas[0]
 
#puts preguntas[1,3] 
 
#puts preguntas[-1] 
 
preguntas.each do |i| 
 
	puts i
	respuesta_jugador = gets.chomp
 
	if respuesta_jugador == respuestas[contador]
		puts "correcto"	
		puntos = puntos +5
	else  
		puntos = puntos -10
		puts "Incorrecto !"
 
	end
	contador += 1
 end
 
 
 puts "El total de puntos es #{puntos}"