program quadratic_equation
  implicit none
  real :: a, b, c, discriminant, root1, root2
  a = 1.0
  b = 0
  c = 4.0
  discriminant = b**2 - 4.0*a*c
 
  if (discriminant > 0.0) then
 
    root1 = (-b + sqrt(discriminant)) / (2.0 * a)
    root2 = (-b - sqrt(discriminant)) / (2.0 * a)
    print *, "Root 1 =", root1
    print *, "Root 2 =", root2
  else if (discriminant == 0.0) then
    root1 = -b / (2.0 * a)
    print *, "Root =", root1
  else
    print *, "There are no real roots."
  end if
 
end program quadratic_equation

cHJvZ3JhbSBxdWFkcmF0aWNfZXF1YXRpb24KICBpbXBsaWNpdCBub25lCiAgcmVhbCA6OiBhLCBiLCBjLCBkaXNjcmltaW5hbnQsIHJvb3QxLCByb290MgogIGEgPSAxLjAKICBiID0gMAogIGMgPSA0LjAKICBkaXNjcmltaW5hbnQgPSBiKioyIC0gNC4wKmEqYwogIAogIGlmIChkaXNjcmltaW5hbnQgPiAwLjApIHRoZW4KICAgCiAgICByb290MSA9ICgtYiArIHNxcnQoZGlzY3JpbWluYW50KSkgLyAoMi4wICogYSkKICAgIHJvb3QyID0gKC1iIC0gc3FydChkaXNjcmltaW5hbnQpKSAvICgyLjAgKiBhKQogICAgcHJpbnQgKiwgIlJvb3QgMSA9Iiwgcm9vdDEKICAgIHByaW50ICosICJSb290IDIgPSIsIHJvb3QyCiAgZWxzZSBpZiAoZGlzY3JpbWluYW50ID09IDAuMCkgdGhlbgogICAgcm9vdDEgPSAtYiAvICgyLjAgKiBhKQogICAgcHJpbnQgKiwgIlJvb3QgPSIsIHJvb3QxCiAgZWxzZQogICAgcHJpbnQgKiwgIlRoZXJlIGFyZSBubyByZWFsIHJvb3RzLiIKICBlbmQgaWYKCmVuZCBwcm9ncmFtIHF1YWRyYXRpY19lcXVhdGlvbg==