出力は、write 文でできた。入力は、read 文を使う。
real a,b,c,de c read(*,*) a,b,c write(*,*) " a=",a,"; b=",b,"; c=",c de= b*b-4.0*a*c write(*,*) sqrt(de),-sqrt(de) c end