program kokler
real::a,b,c,delta,x1,x2
print*,"a katsayisini giriniz:"
read*,a
print*,"b katsayisini giriniz:"
read*,b
print*,"c katsayisini giriniz:"
read*,c
delta=sqrt(b**2-4*a*c)
x1=(-b-delta)/(2*a)
x2=(-b+delta)/(2*a)
print*
print*,"Ilk kok   : ",x1
print*,"Ikinci kok: ",x2
end program kokler