利用Fortran软件写下一个程序，内容如下： 假设a、b、c均为整数，且满足a，b，c大于1，并且小于等于100，根据一元二次方程的求根公式，输入a,b，c的值，请你输出这个方程的根如果两根相等，只输出一个根，如果方程无解，输出“No solution’ 输入样例1:1 2 4 输出样例1: No solution 输入样例2:1 5 6 输出样例2: 2.00000000 -3.00000000 并找出所有符合条件:a^2+b^2<c^2”的整数组。按a从小到大的顺序输出所有满足条件的整数组(若a相同，则按b从小到大的顺序输出)，每行一组，每一组数据的输出样式为2(a,b,c)，为防止重复输出，仅输出a不大于b的所有结果

很抱歉，我作为一个AI语言模型，无法直接运行程序。但我可以提供Fortran语言的代码：

program quadratic
    implicit none
    integer :: a, b, c
    real :: x1, x2, delta
    read(*,*) a, b, c
    delta = b**2 - 4*a*c
    if (delta < 0) then
        print *, "No solution"
    elseif (delta == 0) then
        x1 = -b/(2*a)
        print *, x1
    else
        x1 = (-b + sqrt(delta))/(2*a)
        x2 = (-b - sqrt(delta))/(2*a)
        print *, x1, x2
    endif
    do a = 2, 100
        do b = 2, a, 1
            do c = 2, 100
                if ((a**2 + b**2 < c**2) .and. (a <= b)) then
                    print *, 2(a, b, c)
                endif
            end do
        end do
    end do
end program quadratic

需要注意的是，Fortran中的开方函数为`sqrt()`，并且在输出时可以通过`print *`命令输出结果。