program roots

	real :: a,b,c
	real :: raiz
	real :: sol1, sol2, solrara

	write (*,*) 'Sea un polinomio de segundo grado, introduzca el termino independiente'
	read *, c

	write (*,*) 'Ahora introduzca el termino que multiplica a la x'
	read *, b

	write (*,*) 'Ahora introduzca el termino que moltiplica a la x al cuadrado'
	read *, a

		if (a==0.) then
		
			solrara= (-c/b)

			write (*,*) 'La raiz del polinomio introducido es' , solrara

		else

			raiz= (((b)**2.)-(4.*a*c))**(1./2.)

			sol1= (-b+raiz)/(2.*a)
			sol2= (-b-raiz)/(2.*a)
	
			write (*,*) 'Las raices del polinomio introducido son' , sol1,sol2

		end if

end program