Jednoduchý program

S těmito znalostmi už můžeme napsat jednoduchý program. Jakou řeší úlohu?

program p1
! prvni program
real :: a,b,c,d,e,x1,x2

a = 1.0
b = 2.0
c = -3.0
d = b**2 - 4.0*a*c
e = sqrt(d)
x1 = (-b + e)/2.0/a
xy = (-b - e)/2.0/a
write(*,*) "Hledane reseni: ",x1,x2
end