toplama

program sum                                          !a: name of program
!an example of program  structure                    !b: a  comment   
real :: answer,x,y                                   !c: declarations
print  *, 'Enter two numbers'                        !d: output
read  *, x                                           !e: input
read  *, y                                           !e: input
answer=x+y                                           !f: arithmetic
print  *, 'The total is ', answer                    !g: output
end  program sum                                     !h: end of program